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Ib 1 er hebdornsdaire dGs proorarnniBs informatio 

DES PROGRAMMES POUR VOTRE 

ORDINATEUR lAPPLE ll et ll e . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20. GOUPIL .HEWLETT PACKARD 
HP41etHP75,ORIC1. SHARP PC1211,PC1251,PC1500,MZ 80. 
SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 80. TEXAS 
TI-99/4A. THOMSON T07. 

DEUX SUPER CONCOURS : 10 000^ de 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 
pour le meilleur logiciel CHAQUE TRIMESTRE. 



UN NOUVEAU 
MICRO POCHE 
CASIO? 

CASIO vient de presenter un 
nouvel ordinateur... de poche: 

le PB70O. 
Ce nouveau produit est eton- 
nant a plusieurs litres, et ceci est 
remarquable car dans notre 
metier ii nous est difficile d'etre 
etonnes par des nouveautes 
technologiques qui se succe- 
dent dans le domaine de la 
micro-informalique 
CASIO nous a toujours etonnes 
par sa creativite et ses efforts 
pour mettre sur le marche les 
produits les mieux adaptes aux 
besoins des utilisateurs. 
Le premier micro-ordinateur 
lance par CASIO etaitleFX702P 
qui de par sa vocation scientifi- 
que. a remporte aupres d'un 
vaste public d'ingenieurs, d'etu- 
diants. de cadres commer- 
ciaux un succes considerable 
En fevrier 1 983 CASIO lance une 
bombe sur le marche de la 



micro-iniormatique. le PB10O: 
veritable methode (ordinateur + 
livre) d'initiation a la micro-infor- 
matique. et ceci pour moins de 
750 F. 

Un succes sans precedent qui se 
traduit par plus de 25000 pieces 
vendues a ce jour aupres d'un 
public dont la moyenne d'age 
est d'environ !5ans. 
Aujourd'hui. par le PB 700, 
CASIO absorbe I'ensemble des 
utilisateurs professionnels ou 
non professionnels. 
Le PB 700 est le premier ordina- 
teur BASIC de poche MODU- 
LAIRE, EXTENSIBLE, et COM- 
PACT. 

-MODULAIRE il permet une 
acquisition progressive a la 
portee de tous les budgets. 
-EXTENSIBLE: il permet une 
evolution des performances 
en fonction des besoins de 
I'utilisateur. 
- COMPACT . il est i'outil ideal de 
I'Homme de terrain, en version 
de poche. en mallette. ou sur 
un bureau. 

suite page 8 



Edito 



Les jeux, c'esl bien ! c'est meme 
la vocation premiere de I'Hebdo. 
mais il n'y a pas que ca qui tourne 
sur les micros! Vous pourriez 
peut-etre vous essayer a des 
programmes un peu plus se- 
rieux? (Sans tomber dans les 
programmes TROPserieux ) Par 
exemple: gestion decompteen 
banque. calcul des impots. ges- 
lion de fichier ou comptabitite 
personnelle. Ou. encore, des 
programmes utilitaires permet- 
tant de mieux utiliser votre 
micro-ordinateur. Nous avons 
deja public des programmes 
semblables pour certains ordr- 
nateurs. les autres pourraient s'y 
mettre. cela n'empechera pasde 
continuer les jeux. Nous passe- 
rons un utilitaire ET un jeu, 
comme ca tout le monde sera 
content. O'ailleurs cette 
semaine. ORIC. TEXAS et ZX8! 
ont droit a deux programmes, 
suite page 16 



Menu 



"APPLE II PARLE FRANCAIS" de 
J.-F GROUSSIN a failll gagner le 
concours du mors dernier, c'est 
vous dire si le DOS FRANCAIS 
public aujourd'hui est attendu 
par les programmeurs d APPLE : 
merer Monsieur GROUSSIN. 
Vous pouvez ecrire en francais 
sur votre ecran et le copier sur 
I'lmprtmante de votre MZ 80 
avec le HARD COPY de G. LE- 
CANNU: 9a ne parte pas fran- 
cais, mais ca ecrit (ran£ais, c'est 
mieux que rien ! Lc QUADRILET- 
TRE FX 702 P de Herve JANOD 
est, lui, bien en francais. encore 
que les letlres soient dans le de- 
sordre et que, tout au moins au 
debut, cela ressemble plutot a 
du chinois Le CCP de Thierry 
DOMBLIDES pour PC 1500 est 
un remarquable petit outil de 
gestion pour les irreductibles 
partisans des comptes cheques 
postaux.YvanCHARPENHERva 
se (aire detester par les obeses 



et par les bien-en-chair qui cal- 
culeront leur poids ideal avec 
leur PC 1211 Eddy MITCHELL lit 
peut-etre HEBDOGICIEL {en 
tout cas, il n'est pas abonne!), 
mais Pierre LALAIN et son TRS 

80 ne s'interessent qu'a la DER- 
NIERE SEANCE avec un QUIZ 
tres amusant. Nous repartons 
encore une fois dans I'espace. 
comme toutes les somaines 
embarquons sur la NAVETTE ZX 

81 de Maurice NOVAT, sans 
CRASH COSMIOUE (Christo- 
phe ROMANIN sur SPECTRUM) 
el rcntrons dans 1'atmosphere 
avec THOM 7 et T.O'SON de 
G. FAGOT-BARRALY Contraire- 
ment a son nom, FETCHVAR. le 
programme de Marc MA1ZIER 
pour HP 75 ne se passe pas dans 
I'espace ni dans le ciel, II n'a me- 
me pas de rapport avec un Jou : 
c'est un interessant programme 
de recherche de variables, plus 
aucun risque demployer la me- 
me variable dans un long listing ! 
(A adapter d'urgence a voire mi- 
cro et a envoyer a I'Hebdo pour 
publication.) Le labyrrntho de 

suite page 12 



HlPPOREBUS trouvez I'expression qui se cache dans la B D de t'hippocampe. Decompose en trois syltabes dans les trois premieres cases, le "tout" a evidemmenl un rapport avec linformatique 
(solution en page interieure). 



ERES CHANGENT DE GENRE 
ComflE DE TAiU-E ../ 




, C€. PAftFON LES A RESDUES 

CEtL^BRES.. 
O 



(N"8 



) 




2 d6cembre 83 J Allemagne 3.50 DM - Belgique 55 Frs - Canada 2,50 $ • Luxembourg 57 Frs • Suisse 3 Frs 



CASSE-PIPE ytf> 
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La HP-41 peche tortemenl par la pauvrete de son affi- 
chage malgre tout co programme ossayo d'on tirer te 
maximum, avec I'aide du module X-FUNCTION. 
DansCASSEPipc vous devez abattre los cibles qui defi- 
lent a I'ecran Le canon est symbolise par ledrapeau 2. 
II y a i2ciblos n'p.trtins ,?n deux groupesde six. Atten- 
Hon, plus vous avancez dans le |eu, plus les cibles defi- 
lent rapidement. 

Vincent HERLICQ. 



LES CIBLES 

5 points 

points 

i points 

I : 20 points 

9 35PH 9|.'K 
9I*LBL -CHSSEP1- 

92 FIX 9 

93 CF 29 

94 SIZE' 

95 16 
86 X>V> 
9? PSIZE 

98 8 

99 STO 14 
19 STO 15 

11 4 

12 X<>F 
13»LBl 19 

14 -ATTENTION... 

15 FC? 85 

16 OVIEU 

1? " 1 •• 

18 14 

19 XTOO 
29 XTOO 

21 FC 85 

22 CTO 87 

23 -ENCORE 6 ... 

24 OVIEU 

25 • 1 > 1 I" 

26 XTOO 
27*LBl 97 

28 SF 95 

29 TINE 
38 FRC 

31 I E2 

32 • 

33 orot 

34 5 
35»L8L II 

36 OTOX 

37 OTOX 

38 PTOX 

39 OROT 
49 XTOO 

41 RDN 

42 OROT 

43 XTOO 

44 RDH 

45 BITOT 

46 XTOO 

47 RDH 

48 D5E X 

49 CTO II 
58 OTOX 

51 STO 88 

52 OTOX 

53 STO 81 

54 OTOX 

55 STO 82 

56 OTOX 

57 STO 83 

58 OTOX 

59 STO 84 



nl son "bouclior de 

. ible • 



Attention chnque Grtour do tit vous coule dix points I ot nattendez 
our tlrer, cheque lour complot de latlichage retire cinq 
points 

CONFIGURATION 

Programme I HP -tlCavoc 1 module de MEM. X-FUNCTION, TIME 

Programme 2 HP-41C avec t module de MEM. X-FUNCTION 

PROGRAMME I : 

,\i,,,v, .ivnn i.i|m> ii* iHuiii.imma (oufl) b vc-us de Jouei 

Un ultimo renseignement avant do vous laissor lace a tace avec voire 

41. lo tir s'elfeclue en pressant ON 

PROGRAMME 2 : 

Si vous n'nvoz pas le module lime le tir demande deux pressions de 

louche Une lois sur R/S pour arreter le programme et une seconde 

lois sur R/S pour decloncher le programme TIR qui est atlecte a la 

louche R/S dfts le dObut do CASSEPipe 

Attention, si vous vous arretoz en cours de parlie n'oubliez pas de 

(aire ASN ALPHA ALPHA R/S stnon vous auriez des surprises 



Pour les chasseurs d'octcts 

Vous pouvoz romplacer los tignos 50 ft 73 et 63 ft 1 06 dans CASSEPt 

el les I'unes 64 ft 87 ot 97 ft 120 dsns CASSEP? par 

II 
LBL 15 LBL 16 

ATOX RCL IND X 

STOINDX XTOA 
RDN RON 

ISG X DSE X 

GTO 15 GT0 16 

M.-us si cotle solution est moms vorace en octets elle est aussi plus 
lento et ici la rapidite ost primordiate 

REMAROuES 

Poul (aire vanor la Vitesse de dftlilement des cibles. il suttit do 
changer le nombfe ou le lype destruction dans tes LBL 00 a 05 en 
prenanl soin de toujours garder 1 ST+ 13 

- Pour taire detiler latlichage on utilise la routine AVIEW SF 25SF99 
Attention, seul. latlichage defile le rogistre ALPHA reste inchange 

- Le tir grace ft la louche ON (avec le TIME) est possible grace aux 
pastdue alarm (alarmes passOes) En ettet quant on veut etemdro la 
HP etquunealarmo past -due enisle, celle-cisedeclanche Icile pro- 
gramme TIR ost lance 

Si par suite d'erteurs vous avez plusieurs alaimes TIR en memoiro.il 
sullit deteindre la 41 plusieurs lois jusqu'a ce quelle reste etemto 



69 OTOX 

61 STO 85 

62 OTOX 

63 STO 96 

64 OTOX 

65 STO 97 

66 OTOX 

67 STO 98 

68 OTOX 

69 STO 8? 
79 OTOX 

71 STO 18 

72 OTOX 

73 STO 1 1 

74 TONE 5 

75 4 

76 STO 13 

77 CTO 89 
78»L8L 13 
79 "...PtET. 
88 OVIEU 

81 TONE 5 

82 CIO 

83 RCL 11 

84 XTOO 

85 RCL 18 

86 XTOO 

87 RCL 89 

88 XTOO 

89 RCL 88 
98 XTOO 

91 RCL 87 

92 XTOO 

93 RCL 86 

94 XTOO 

95 RCL 95 

96 XTOO 

97 RCL 84 

98 XTOO 

99 RCL 83 
199 XTOO 
19! RCL 92 

192 XTOO 

193 RCL 91 

194 XTOO 

195 RCL 98 

196 XTOO 

187 TONE 9 

188 PTN 
I99«L81 8e 
118 1 

111 ST* 13 

112 R-P 

113 R-P 

114 CTO 98 
115*LBL 9! 

116 I 

117 ST* 13 

118 R-P 

119 CTO 81 



128.L8L 82 

121 I 

122 STr 13 

123 XOY 

124 XOY 

125 XOY 

126 CTO 82 
127«L8L 83 

128 1 

129 STr u 

138 XOY 

131 XOY 

132 GTO 83 
I33*LBL 84 

134 1 

135 ST* 13 

136 XOY 

137 CTO 84 
I38*LBL 85 

139 1 

148 ST* 13 
141 CTO 85 
142*LBL -TIP- 

143 -OBflTTU- 

144 RCL 13 

145 12 

146 HOD 

147 XO 13 

148 LOSTX 

149 / 
158 INT 

151 S 

152 • 

153 ST- 15 

154 RCL INI 13 

155 CTO IND X 
156*L8L 32 

157 -ItONOUE- 

158 SF 86 

159 TONE 8 
168 18 

161 ST- 15 

162 32 

163 CTO 86 
164*L8L 42 

165 18 

166 ST* 15 

167 32 

168 TONE 8 

169 CTO 86 
I78*LBL 14 

171 "TOUCHE' 

172 SF 86 

173 5 

174 ST* 15 

175 TONE 7 

176 42 

177 GTO 86 
!78*LBl 79 
179 15 



188 ST* 15 

181 TONE 7 

182 32 

183 GTO 86 
184*LBL 49 

185 28 

186 ST* 15 

187 TONE 9 

188 32 
189*L8l 86 
198 OVIEN 

191 STO IND 13 

192 FS?C 86 

193 CTO 89 

194 I 

195 ST* U 

196 RCL 14 

197 6 

198 X=Y"> 

199 CTO 18 
298 XOY 
291 12 

282 X=Y' 

283 CTO 98 
264*LBL 89 

295 CF 26 

296 CLST 

297 -tTIR- 

288 XYZBLH 

289 SF 26 
218 XEO 13 

211 RCI 13 

212 4 

213 - 

214 CHS 

215 OROT 

216 OVIEU 

217 SF 25 

218 SF 99 

219 RCL 14 
228 2 

221 / 

222 INT 

223 5 

224 X>Y? 

225 XOY 

226 GTO IND X 
227«LBL 88 

228 -VICTOIRE- 

229 OVIEU 
238 BEEP 

231 BEEP 

232 CLO 

233 ARCL 15 

234 -r PTS" 

235 OVIEU 

236 .END. 




942PN 81/62 


42 * 


84 OTOX 


126 R-P 


168 RCL THE 13 


218 RCL 14 


81*LBL -C0SSF.P2- 


43 FRC 


85 STO 18 


127 R-P 


169 CTO IND X 


21! 6 


92 FIX 9 


44 STO 16 


86 OTOX 


128 CTO 88 


178*LBL 32 


212 X=Y' 


93 SIZE' 


45 24 


87 STO 1 1 


I29«L6L 61 


171 -NANOUE- 


213 CTO 18 


84 17 


46 • 


88 TONE 5 


136 1 


172 SF 66 


214 XOY 


95 X>Y' 


47 OROT 


89 4 


131 ST* 13 


173 TONE 8 


215 12 


86 PSIZE 


48 5 


98 STO 13 


132 R-P 


174 16 


216 X=Y' 


97 CF 29 


49«LBl II 


91 GTO 89 


133 GTO 81 


175 ST- 15 


217 CTO 88 


88 SF 26 


58 OTOX 


92*LBL 13 


I34»L8L 82 


176 32 


218*LBL 99 


89 SF 27 


51 OTOX 


93 -...PRET.. 


.• 135 1 


177 GTO 86 


219 XTO 13 


19 9 


52 OTOX 


94 OVIEN 


136 ST* 13 


178*LBL 42 


229 RCI 13 


11 STO 14 


53 OROT 


95 TONE 5 


137 XOY 


179 18 


221 4 


12 STO 15 


54 XTOO 


96 CLO 


138 XOY 


188 ST* 15 


222 - 


13 4 


55 RDN 


97 RCL 11 


139 XOY 


181 32 


223 CHS 


14 XOF 


56 OROT 


98 XTOO 


148 GTO 82 


182 TONE 8 


224 OROT 


15 -ALEO ?• 


57 XTOO 


99 RCL 18 


I41HBL 63 


183 CTO 86 


225 OVIEH 


16 PROMPT 


58 RDN 


188 XTOO 


142 1 


184*LBL 14 


226 SF 25 


t7 FRC 


59 OROT 


191 RCL 99 


143 ST* 13 


185 -TOUCHE- 


227 SF 99 


18 STO 16 


6e XTOO 


192 XTOO 


144 XOY 


186 SF 66 


228 RCL 14 


19 "TIR" 


6! RDN 


193 RCL 88 


145 XOY 


187 5 


229 2 


28 84 


62 DSE X 


184 XTOO 


146 CTO 83 


188 ST* 15 


238 / 


21 POSN 


63 GTO 11 


195 RCI 97 


I47«L8L 84 


189 TONE 7 


231 INT 


22*L8L 18 


64 OTOX 


186 XTOO 


148 1 


198 42 


232 5 


23 "ATTENTION... 


65 STO 88 


187 RCL 86 


149 ST* 13 


191 CTO 96 


233 X>Y' 


24 FC? 85 


66 OTOX 


188 XTOO 


158 XOY 


192.L8L 79 


234 XOY 


25 OVIEU 


67 STO 81 


189 RCL 85 


151 GTO 84 


193 15 


235 CTO IND X 


26 ■ 1 <• 


68 BTOX 


118 XTOO 


152*LBL 85 


194 ST* 15 


236«LBl 68 


27 14 


69 STO 82 


111 RCL 84 


153 1 


195 TONE 7 


237 -VICTOIRE 


28 XTOO 


78 OTOX 


112 XTOO 


154 ST* 13 


196 32 


238 OVIEU 


29 XTOO 


71 STO 83 


113 RCL 83 


155 CTO 85 


197 GTO 66 


239 CLA 


38 FC' 85 


72 OTOX 


114 XTOA 


156*L8L -TIR- 


198.LBL 49 


249 84 


31 CTO 87 


73 STO 84 


115 RCL 82 


157 -OBOTTU- 


199 28 


241 PASH 


32 "ENCORE 6 ... 


74 OTOX 


116 XTOO 


158 RCL 13 


288 ST* 15 


242 BEEP 


33 OVIEN 


75 STO 85 


117 RCL 81 


159 12 


281 TONE 9 


243 BEEP 


34 ■ 1 » 1 1- 


76 OTOX 


118 XTOO 


168 NOD 


282 32 


244 ARCL IS 


35 XTOO 


77 STO 86 


119 RCL 88 


161 XO 13 


283*1 81 86 


245 -V PTS' 


36«LBL 87 


78 OTOX 


128 XTOO 


162 LOSTX 


294 OVIEU 


246 AVIEU 


37 SF 95 


79 STO 87 


121 TONE 9 


163 1 


295 STO IND 13 


247 .EHD. 


38 RCL 16 


88 OTOX 


122 RTV 


164 IHT 


296 FS?C 86 


■ 


39 9821 


81 STO 88 


I23«L6L 88 


165 5 


287 CTO 89 




48 • 


82 OTOX 


124 1 


166 • 


288 1 




41 .211327 


83 STO 89 


125 ST* 13 


167 ST- 15 


289 ST* 14 





FETCH VAR tfP 75 



Cet utilitaire recherche dans un programme toutes les 
variables utilisees qu'elles soient numeriques ou 
alphanumeriques. 

Marc MAIZIER 



Lo temps de calcul et d'analyso depend du la longueur du program- 
me ft traitor Le programme analyse sera renumOrolodo 10 on tOen 
(In de traitomont Attention aux REM qui sont irallOos commo dos 
instrucllons BASIC 




1 REN FETCH VOR 

2 REN 

3 REN HP-75 C 

4 m 

5 REN Nant HBIZ1ER 

6 REN 
10 DI" 

LII981.AI181. 61141, C*t4j 
,D«[4!.Eiri!.Nl(8J 

78 IHTFf.Ff 

B,C.D.E,F.I,J,X 

38 INPUT -Hon du flchUr 

BASIC: -iHt 

46 INPUT -Hon du fkhier 

destination ••01 

56 EDIT Hi 8 OISP 

TAB(I3),-P=.im 

66 RENUHBER 



76 TRANSFORM Nl IHTO 

TEXT 

88 ASSIGN I 1 TO HI 8 

BSUf.N t 2 TO Ot 

98 F=l 9 GOSUB 126 6 F=r 

6 GOSUB 128 

168 TRANSFORM Ht INTO 

BASIC 

119 BEEP 1486,16 9 STOP 

128 FOR 1=65 TO 98 6 

EI=CHR!(I) 

138 IF F=| THEN 6t=EI » 

CI=E«-=- » Dt=EtfC 

146 IF F=2 THEN 

8t=Ett-f » Cf=B!f=- • 

Dt=etvc 

158 C0SU6 218 8 NEXT I 
166 FOR 1=65 TO 98 9 



Et=CHRKi) 

178 FOR K=8 TO 9 

188 IF F=l THEN 

8t=EHSTRt<K> 9 

Ct-Bit--- • Dt=BsVC 

199 IF F=2 THEN 

Bt'EtSSTRfdOtT 6 

Ct=8M-=- 8 Dt=8l«-[- 

288 GOSUB 218 8 HEXT X 9 

NEXT I 9 RETURN 

218 ON ERROR COTO 366 

226 B,C.D=8 6 01=- • 

238 FOR J=ie TO 9998 

STEP 19 

248 READ • I, J ; LI 

258 IF B=8 AND 

POSd.t.ntiHttot 



266 IF C=8 AND 

posat.ottcnoe then 

C=l 

278 IF 0=8 AND 

P0S(Lt,AttDt)O8 THEN 

D=l 

288 IF (B=l OR C=l) AHD 

J=l THEN 388 

298 HEXT J 

366 OFF ERROR 6 E=9 

318 IF D=l RND 

DtILEN(Dt),LEN<Dt;]=-C 

THEN [l=nt(l,LEN(DI)-I! 

9 E»l 

328 IF B=l THEN PRINT • 

2 1 Bt 

338 IF B=8 AND CM THEN 

PRINT I 2 i 

CtU,LEN(Ct)-ll 

346 IF D=l AHD EM AND 

(8=8 OHD t.=6> THEH PRINT 

I 2 , Dt 

356 IF ri 

POStM.'Cl " WEN 

PRINT 1 . 

■ 



THOM 7 & T.O'SON 



QuiseralegagnanI.vousouvotreadversaire?Vousdis- 
posez lous les deux d'un avion de combal arme de mis- 
I lOM 7 et les chances sont. a priori, egales. Pour- 
tant lignoble T. O'SON esl la. et il laul compter avec lui : 
Les mines qu il disperse caet lavont peut-etre changer 
le cours du jeu... 

G. FAGOT-8ARRALY 



-cO 




II ••••'•• THOlt T Et T. O'SON 

28 COT 01 MiS 

38 J>J*>liro&:*eT019:REAOX!POK£lWaiJ»l,X 

tPS]»TCR»>X>li«lEXTlR£TURr» 

M DEPL«EnE»TS V8ISSEAUX 

i«e w»-K(n**<i>iY»-v<i>.B<pip.p£CK<u.e 

11* IF R<4 THE16J6 
128 IF P03 THEH1 3? 
122 rc-MOMF \<.Z1 THE«Oill"HB(I 1-9IC< I 

•micotoim 

124 IF K<.3 THENAf 1 >*-llB<! >•«! D < 1 > ••' GO 
TOIBB 

126 IF K<.n THCWl<l>*0lB<I>-ll[XIWiC0 
TOIM 

125 «<I)-eiB'.I >■-!<&< I >-3iC0TOl»9 
IJ» IF ?•« THEMS88 

l«B L0C0TE2»X<I>.Y<I)iPlfli|T 'iPOKEO'28* 



160 L0C8TES4X<I .V> DiPftlHTCfftiOi: 

EU*2t»V<t>*X<I>,&<I> 

I7B *ETuR» 



199 . 



BOUCLE PRIWCIPRLE . 



280 l"2>I«-IRKEYIi IF !*•-■ THEK278 

203 IF A5C<1«>>13 THEN I«HC0TQ318 

218 If 14-CHRH9. TMENd(2)>t>BC2>-B>0<2> 

•HC0r0279 

229 If IfCHRt<8> TME«i2>--l:e(2)-eiD<2 
>-8iCOT0270 

27* If I(-CHD*ue> TNElM<2>«8f8f2l-IlD<2 

W>COT0270 

2*1 If ri-CH»*i;: ■ tmena<2)*8!B<2>>-i:DC 

2>-3rCQT02?8 

230 IF If-CMKIJ) THEHC0SUS6BBI IF P<4 T 
-E»S8e ELSE 388 

27* C0SU81B8HF P< 4 TKEM308 

EM IF RKCX.I THEN C0SUB98B 

IM I-H II«I«Ef»rlF I*-'- THEH37B 

3*5 If flSCU«><!4 THEW I-2IC0T021B 

318 IF H--S- THEI»<l)-Ii8<l>-et0(l)«llC 

mm 

3Z9 If n»"9- THt»j|| :-.--: t a .. i ,-at;-. : >*ei 

&OTQ378 

33t IF I«»'M* THENfl<l)-8i9<l»"tiP(l>-2iC 

0T0379 

349 IF ||.'Z' ?HENft< l)*«iS<l >•-! tot I >*3: 

C0TO378 

339 If If*CHR(<32> THEN C03UB«99Hf P<4 
TMEH388 ELSE 288 

378 CCSOBIBBUF P>3 TMEX288 ELSE588 

498 FIN D'UHE PHOSE DE JEU 

399 PRINTCHR*c39>MPOICE24633.aiCOL0ft9,2! 
PRINT'TOUCHE I : F1EHE CMfiflP DE BATAILLE* 

319 PRWTOUCHE 2 : CHAHGEBEHT DE 0EC0R 
■iPRIMT'TOUCHE 3 > Flu &U JEU" : C0L0R4, 6 
329 IflUKEYf: I-VALUOl IF «| OR I>3 TH 

EMM 

539 If 1-3 THE* CLEi*R,32767,a:ClSiE»& 

340 V-V*a-l)tS0T0ll9B9 



390 TIP 

689 T««CR*(-8»(0<I 1(2 >-74<0< I )) l > > i X6-X< 

!>'Y8-Y<t> 

618 X8-XB*A>;uY9-YB.B<I>iP«PEE«:<U.28»Ye 

•m 

628 IF P«3 THEN RETURN 
638 IF P>3 THEN648 

632 C<I>-CU)-1>P0KE24633,2UF !•! TMEWL 

0CATE8,23iPRINTC<l}liELSEL0CflTE29,23!PRI 

■TC<2>I 

S34 I - ] * I « IF 1-3 THENI-i 

636 P0«24633,4!FQRK-IT0?tL0CATE24X<!>,Y 

UJiRRIHTGRKD-U) HPLOY-OlL9D0ni* 

638 L0CftTE2»X(l>.Y(l)lPRlMT- *:PLAY'05L2 

t'OSfiNEXTlRETURM 

649 ir p-6 TKENaea 

638 L0CAr£2«Xe,Y8!PRI«(TTfiL0C(»TE2»X8,Y8i 
PRINT- •! 
668 C0T0618 

798 EXPLOSION D'UKE NINE 

888 C0LORHF0RK--2TO21FORL--2TO2 

818 P«REEK<U*284<Y8*K>*X8'-LiltF P>3 THEN 

839 

828 IF XB»L-X(1) AND Y8*K-Y<1> THEKI-2IC 

0T0632tELSE[-ltCOTO632 

83B L0CATE24X9*£tL.V8.K:PRltlT-."iPLOY-05 

L1SI" 

348 P0KEU*29«<re*k:).xe*L,4lNEXTiNEXT 

838 B0xr< 164X8-32, 84Y8-16W I 6»X8»47, 8»Y 

9*23), -7 

869 C0L0R9IRETURN 

999 •' NOUVELLE MIRE II 

999 I-INT<RN0»14>t3:j.INT<RN0»!6>*3 

918 IF PEEK(U»29IJ*l;>04 THEHRETURN 

928 COLORliLDCflTE2»I,jiPRINTCRl(6)iP0XEU 

*209J*I,6 

939 C0L0R9IRETURN 

998 DECOR NUMERO 1 

1899 RESTORE I 2B99: C0SU839: RESTORE 12598 : C 

0SUB38 

1919 RESTORE 1 2! 89! G0SUB3B: RESTORE 12569:C 

0SU83B 

1929 RESTORE 1 2599i C0Sue3a; RESTORE 12389 1 C 

0SUB3B 

1939 RESTORE 1 2399 1 GCSU638! RESTORE 1 25991 C 

0SUB39 

1948 PEST0REI24981G0SUS39 

1838 FORX-lT04[REST0R£123e9:GOSUB39i«XT 

1868 RESTORE 1 24991 G0SUB39: RESTORE 12399! C 

0SUB38 

1878 RESTORE! 23981 G0SU838i RESTORE 12388 1 C 

0SUB38 

1889 RESTORE 12399! G0SUB38! RESTORE 1 23901 C 

0SUB39 

1999 REST0RE121 99i C0SU939! RESTORE! 2399IC 

OSUBM 

1189 RESTORE 12888IC0SUB3B 

1288 C0L0RB1L0CATE2, ! SPPI NTCRtC 1 ) iPOXEU* 

21,1 

1219 L0CATE36,2eiPRlNTGR*(9JiPOXEU*4I8,e 

1389 COLORI!fORK-lT04:I-INT(8KO«14J.31J- 

IHT(RM0ai6>*3 



1,6 

1339 NEXTIC0L0R91RETURM 

2989 REST0RE12999iCOSU83eiRESTOREl2398>G 

0SUB38 

2818 REST0RE1219BiC0SUB38iR£ST0RE12388iG 

0SUB38 

2828 RESTOPE12388!GOSUB39 

2938 FORK- I T051REST0RE I2499i C0SUB38HIEXI 

2949 RESTORE 12599! GOSUB39! RESTORE 12399: G 

0SUB39 - 

2838 rORK-ITOSi RESTORE I248B1GOSU83B! NEXT 

2868 RESTORE! 2388! G0SUB381 RESTORE 12588: C 

0SU838 

2979 RESTORE 121 981 G03UB39I RESTORE 12399 1 C 

0SUB3B 

2899 REST0REI28eB:C0SU938 

2899 G0T01288 

3899 RES TORE 128991 G0SUB38 1 RESTORE 12588! G 

OSUBM 

3818 RESTORE 1 25991 C0SU83B: RESTORE 1 23981 G 

QSUB39 

3929 F0RK-1T07: RESTORE! 2288: GOSUB38: REST 

ORE! 2589: G0SUB38I NEXT 

383B RESTORE 12389: G0SUB3B1 RESTORE 1 25881 C 

OSUBM 

3848 RESTORE 1 2588 1C0SUB39 1 RESTORE 1 2998 !G 

0SUB38 

3839 G0T0129B 

4999 RESTORE 1 29981 GOSUB39: RESTORE! 2589: G 

OSUBM 

4918 RESTORE 1 23891 G0SU8391 RESTORE 123981 C 

0SU838 

4829 REST0RE125B9:C0SU839 

4 839 FORK- 1T04 i RESTORE! 2399 :G0SUB38! REST 

0REI2398:G0SU83B:REST0IJE:3389:G0SOB3eiNE 

XT 

4849 REST0RE1S599:G0SUB39: RESTORE I 25891 C 

0SUB3B 

4958 REST0REI2388iC0SUB39 

4866 REST0REI25881C0SUB38: RESTORE 1 2888! C 

0SUB39 

4878 G0T01288 

5989 RESTORE 1 2899: COSUS39: BESTORE 1 25881 G 

OSUBM 

3818 RESTORE 1 2388 1G0SUB39: RESTORE 1 23881 G 

OSUBM 

3929 F0RK-1TO3I RESTORE 121091 C0SUB391NEXT 
3839 RESTORE! 2399! G0SU938I RESTORE! 2398! G 

OSUBM 

3848 F0RK-1T03! RESTORE 12388! C0SUB38I NEXT 

3838 RES TORE 12388 1 C0SUB38: RESTORE 1 23881 C 

0SUB38 

3868 FORK-1T031REST0REI2I9BIGOSUB3BINEXT 

3979 RESTORE 12389: C0SUB38: RESTORE! 2388 1 C 

0SUB38 

3989 REST0REI238B1C0SU838 

5998 RESTORE 125881 COSUB38! RESTORE! 2898! G 

OSUBM 

5199 G0T01288 

9998 ... DEFINITIONS ET PRESENTATION .. 



19899 CLEAR. J2299.9! u- 321991 KfG*t< 9 >-t, 

12.23,126.126.23, i2,6:D£rc*t<l )-»6,4f, 13 

2,126,126.132.48,96 

199 IS DEf&Rt :2 )-36, 13J. 2 19, 126,69.24.24, 

24i0EFGRt<3>-24,24,;4,S8,:2*.219.I33,3i 

19928 DEFGR*<4 1 *B.B.9,*.».9.B.8iDtFG* > f(3 

>-233, 253, 233, 233, 233. 251, 235,235 

18831 DEFGR*> 6 (-24,68, 126. 2J1. 231. 126.6* 

,24tDEFCR((7>-24,24.24,24.24,24.24,24 

19948 DEFCPK3 --8,8,9,233.235. 8. 9,9! SC« 

EN4,6, 7tCLS>P0KE24633,9 

19199 LOCATES, l8iIN»UT'N0« tu PRE"IE» JO 

UEOR'lYltHF LEN<V1I>>B T«£n iflf>LCrT9<V 

lf,8> 

18118 LOCATES. 13! INPUT-NOW DU DEUXICNf J 

OuEUR'jveii JF LENtv2t>>s tmEn 8B9-LCTTBI 

V2t,9> 

18128 CLS!P0>:£24633.2:L0<AtEI,23,9iPR]Nl 

Vlt(lLOCATE12,83lPPINT'P0INTS -ICX8SC127 
■;C*Rt( 127)|- ■|V2»!iLOCATE33.23:P«lNT-P 
OINTS'f 

19138 P0«E24633,8iPRINT*zfic»l<3>;' Ot 
■iCRi(8»j* Si-)CRi(i>i- ui*;CR*<2>i- ' 
(CHR*a27)lCHB*U27il 

18148 LOCATES, 1IPR1NT* i.ES TOUCHES 7..0.S 
,W D£PL*.CENT "(PR1NT-LE VA1SSEAU DE '(VI 
UPRINT-SON LASER I L« BARRE D'ESPACC* 

19139 LOCATES. 6IPR1NT- LES 4 FlEChES ft" 
LACENT LE VAISSEAU'iPRINT'DE "JV2«tP»INT 
•SON LASER I LA TOUCHE ENTREE* 

18168 L0CATE8. !2iPPINI*SI UNE NINE EST A 
TTEINTE , ELLE DETRU1TMPS1NTTOUT CE OU 
1 EST AUTOUR- 

19179 LOCATEe.iei COLORS. 3i PRINT-ENTREfj 
1C0L0R4.6HNPUT' POUR CONNENCCR', I« 

10998 REM INITIALISATION 

11899 B0XF(8,8W3:9. 175 >, -7i L0CATE9, 9. 8 

iP0XC24633,4U— 1 

11919 ¥-v.ltv.v.5»<v-6H0N v C0SUBI9S9.2 

888,38B8,4888,MM 

11928 X(IJ-|tY<l)-HX<2).18iY<2>.2B 

11939 ACl)*li&<l»*rtA(2)--l!B<2>-9tD<l)- 

IiD(2>-9 

11849 C0T0288 

M998 

12898 DA1A3, 3. 3, 3. 3, 3, 3, 5. 5, 5,3, 3, 5,5.3. 

3,3,3,3,3 

12189 DATA3,3,3,4,4,4,4,4,4,4,4.4,4,4,4. 

4,4,3,3,3 

12288 DATAS,4,4,4,3,4,4,4,4,4,4,4,4,4,4, 



3,4,4. . . 

I238S DAT03,4,4.< 

4,4,4,4,3 

12488 t)ATA3,3,3,' 

4,4,3,3,3 

12399 DATA3.4,4,< 



1.3,3,3.3.3,3.- 



CADRE DIABOLIQUE 



Amateurs de casse-tetes, a vos claviers... Le pro- 
gramme que nous vous proposons aujourd'hui va 
mettre vos neurones, ou ceux de vos amis, dans une 
situation delicate! 

J.-P.LALEVEE 



II s'agjt. a I'aide d'un motif de reference inclus dans une grille de 

3x3 cases, d'allumer lous les paves d'une grille de tallle superieure 

(5x5 cases). 

Pour ce faire, vous choisissez vous-meme le motif reference utilise 

pour les allumages dans la grille de jeu (ce qui permet un nombre de 

combinaisons tres elevej. 

C'est alors que les ditticultes commencent vous choisissez dans la 

grille dejeu Templacement ou doit venir s'inscrire le motif-reference, 

et ainsi de suite jusqu'a ce que toutes les cases soient allum^es. 

Facile' . Attendez! 

En effet. si tout va bien lorsque les cases de la grille dejeu sont etein- 

tes, il taut savoir que celles qui sont deja allumees s'eteindront si 

vous tentez de les allumer encore une fois ! 



UTILISATION DU PROGRAMME 

Au (ancement du jeu, vous devezd'abord definir le motil de reference 

qui sera utilise en cours departie Pour ce faire. vous tapez la seriede 

lettres correspondant au norn des cases que vous voulez allumer 

dans la grille de reference, puis RETURN. 

Les cases choisies s'allument aussitdt dans la petite grille. 

Ensuite. vous devez mdiquer les emplacements a allumer dans la 

grille de jeu en tapant le nom de la case certtrale (lettre de A a Y). 

Cette case correspondra a la case E du motil-reference Appuyez 

ensuite sur RETURN. 

Et ainsi de suite, jusqu'a allumer toutes les cases de la grille de jeu, 

conformement aux regies ^noncees ci-dessus 

En cours de parlie, vous avez a tout momenl la possibility 

- De remettre tout a zero, en tapant "0" 

-De remettre a zero le motif-reference seul, pour le modifier 
tapez "1 '" 

- De remetlre a zero la grille dejeu seule, pour recommencer avec le 
meme motif tapez 2" 

De ces trois possibilites. la fonction "1 " vous pacaitra probablement 

tres utile, surtout en fin de partie. pour calmer vos neurones en 

colere. et reussir a allumer enfln - en trichant un peu - toutes les 

cases du cadre diabolique 

Pour debuter: 

Pour certains motifs, vous ne pouvez etre assure au 

qu'il existe une solution. Aussi. choisissez pour commencer des 

motifs simples qui vous familianseront en douceuraveccetexercice 

perilleux 



JEU! CHOI'/-; DE Lfl CASE CENTRflLE 



l] '■ 



LE CADRE 
DIHBOl IQUE 



l-'-El- EftEHCE 



3iLj] LI B 



SCHEMA A: 

Le motif-reference a la forme d'une croix. 

Le joueur vient de choisir la case I. 



JEU: CHOIX DE Lm CfiSE CENTRflLE ? I 
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B 
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Q 


R 
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X 


'-• 




SCHEMA 8: 

Le joueur a choisi la case S. 

La case N. qui etait allumee, vient de s'eteindre. 



COMMODORE 64 



a REM • LE CADRE DlHSuLlwjt 

8 REM • COMMODORE 84 

3 REM • J.PEVHLLEE 

3 REM •••••«< 

a 

a POKE 33289,7 REM COULEUfi ECRAN 

9 

3 DIM J< 6, 6 J REM GRILLE DC JEU 

t DIM PK2.2> REM GRILLE REFERENCE 

* MC-9 REM CDMPTEUR DES COUPS 



270 0OSUB 3S9 REM IHIIlftLISfiTIOM DO JEU 

288 0OSUB 498 REM IHITIfiLISflUOM DE LB KEFEREMCE 

Z9C OOSUfi ?1Q REM CtROULLMEHl Dfc LM PflRTIE 

388 

318 PRJHT-BRflVO. VOUS ftVEZ REUSS! EH-.MC.-II COUPS I" 

328 PRIMT-BJME MOUVELLE PORTIE 10/H> ?■ 

330 GET Ct IF C»<"M" OR C»J*0' THEN 338 

348 IF C«--0" THEN RUM 

338 END 

360 

378 REM •••« REMFtlSSnOE DE Lfl GRILLE I+_ JEU •••• 

380 FOR V-l TO 3 FOR X-l TO 3 

390 J<X.V>-8 NEXT X.V 

400 

419 REM *•«»» WFICMflOE D£ Lfl GRILLE DE JEU 

438 FOR VI TO 3 PRINT I«8t3). FOR X«l TO 3 

448 Z-Z*l PRINT H*(J(X,V)>.CMRt(64«Z)-^f, 

430 MEXT X PRIHT"W NEXT V 

468 RETURN 

478 

468 REM 4I4444 Mlbfc M ZERO DE Lfl REFERENCE »••«•« 

490 FOR V8 TO 2 FOR X-0 TO 2 

380 R<X.v)«0 NEXT X,V 

310 

320 OOSUB 638 REM WFlCMMGt 

338 

548 REM *•••• INITIAL ISA TIC* DE LA Ml ■ 

338 PRINT-MBit REFERENCE • LETTRES fl flLLUMER 

360 PRINT TASCI3), "...-. INPUT CI 

378 FOR 0-1 TO LEN(Ct) 

388 C-flSC<niDI(Ct,0.n) 

390 IF C<63 OR C>73 THEN 628 

608 V-INT(<C-63V3» X-C-V43-63 

610 IF ncX.VJ-0 THEN ft<X,V>-l 

3 NEXT 

i 

) REM •*•* WHCHMGE OE LH GRILLE REFERENCE •»< 

3 z-o p«iHT'mntMn«r,rHi^;/,'»i 

I FOR V-0 TO 2 PRINT T«l<23>. FOR X-0 TO 2 

) Z-Z*l PRINT H*(f»<X,V)>, r-p|MI CMRK64.Z) "■»", 

) next x pkiin-m- next v 

: RETURN 



3 INPUT''*** JEU ■ CMOIX DC Lfl C«SE CEMTRflLE ".CI 

) C-«SC(C») 

i IF C>64 AND C<90 THEN 848 

) 

) REM DlMrtN&ES -jFitlrtLES 

I IF C»--8*THEN 278 REM mi GEI«RFK.E 

f IF CI--1-TNEN OOSUS 490 GOTO TM REM R"Z REFtRtMtE 

) IF C»-"i-TMEH Oo-jUIi iUV GOTO 720 REM RflZ ORILLE DC JEU 

1 GOTO 740 

) V-INI<a-63>/3) X-C-VR3-63 




I >-0 GOTO 9/0 



938 i. 

930 REM *••••••••••■ E3T-CE TERMIME 1 

960 Z-0 FOR L-l TO 3 FOR C-l TO 3 

KC.W IMtN £»i*\ 
■JVH 141X1 CL 
990 IF ZC23 THEN 7ZQ 

ieoa uturm 

IB1B 

1020 EM 



DOS FRANCAIS 



.lAJJC 



MODIFICATION DES MESSAGES D'ERREUR: 
La table les contenant esl situee de SA971 a $AA3E. 
Les codes sont en ASCII < S80 el ranges dans lordre 
des numeros des codes d'erreur. Cede table peut done 
etre modifiee, mais il est necessaire de mettre a |our la 
table qui reside de $AA3f a $AA4f qui contient loffset. 
e'est-a-dire le emplacement, par rapport au debut de la 
1 " table, permet d'acceder au 1* caractere du message 
desire Les messages ont tous ete transformes. en 
voici la liste : 



Tout possesseur dun Apple sait que le DOS est charge 
en MEV (lorsqubn "boote" la disquette), il lui est done 
possible de le modifier. Pour notre part, nous ne nous 
essayerons pas a modifier le tonctionnement du DOS 
(ce nest peut-etre pas le nee plus ultra mais nous ne 
saurions faire mieux), par contre. nous ne risquons rien 
a toucher aux tables contenant les MOTS-CLE et les 
MESSAGES D'ERREUR. 

MODIFICATION DES MOTS-CLE : 
La table des mots-cle reside de $A884 a $A908. Cha- 
que ordre est code en ASCII ; tous les codes sont infe- 
rieurs a $80 sauf celui du dernier caractere de chaque 
mot-cle. Ainsi INIT est code : 

$49$4e$49$d4. 
Liste des nouvelles commandes ; 

LOAD D-> A (Disk vers Apple) 

SAVE A-> D (Apple vers Disk) 

CHAIN CHAINE 

DELETE EFFACE 

LOCK PROT (PROTege) 

UNLOCK DEPROT 

CLOSE FERME 

READ LIT 

write ::::::::ecrit 

OPEN OUVRE 

APPEND AJOUT 

RENAME CHGNOM (change nom) 

BSAVE BA->6 

BLOAD BD-> A 

BRUN BFAIT 

VERIFY VERIF 

II va de soi que le nouveau DOS ainsi obtenu ne peut 
executer des programmes contenant des ordres DOS 
normaux. On veillera egalement a ne pas initialiser 
intempestivement une disquette avec ce DOS trans- 
forme. 

Sur le plan pedagogique. la modification des messa- 
ges d'erreur est encore plus interessante. 



TEXT : HOME : HTAB 14: PRINT "DOS FRANCAIS" 

VTAB 23: HTAB 9: PRINT "ATTENTION DOS N0DIFIE": POKE 35,22 

VTAB 6: HTAB 1: PRINT "1-CHARGEHENT DES MESSAGES D'ERREUR": VTAB 9: HTAB 



LANGUAGE NON 

AVAILABLE LANGAGE NON DISPONIBLE 

RANGE ERROR HORS LIMITE 

WRITE PROTECTED DISQUE PROTEGE 

END OF DATA FIN DONNEES 

FILE NOT FOUND FICHIER ABSENT 

VOLUME MISMATCH VOLUME FAUX 

I/O ERROR ERREUR D'E/S 

DISK FULL D PLEIN 

FILE LOCKED FICH. PROTEGE 

SYNTAX ERROR SYNTAX ERROR 

NO 8UFFERS AVAILABLE PLUS DE BUFFERS 

FILE TYPE MISMATCH TYPE FICHIER FAUX 

PROGRAM 

TOO LARGE PROGRAMME TROP GRAND 

NOT DIRECT COMMAND .. COMMANDE DIRECTE!!! 



Le programme DOS FRANCAIS permet de charger les 
fichiers binaires contenant ces modifications- ils se 
nomment MESS.ERREUR et COMMAND.DOS. II est 
necessaire de charger en premier le fichier MESS.- 
ERREUR, sinon le DOS est modifie et le programme 
Basic DOS FRANCAIS ne tourne plus puisqu'il est ecrit 
en utilisant le DOS normal. 



£ 



if 





5» 

78 

9« 
1«* 



t : PRINT -2- 

"3-&UITTER" 

VTAB 15: HTAB 15: PRINT 

'1" THEN PRINT 

2" THEN PRINT 

•3" THEN TEXT : 



NOUVEAUX MOTS-CLE": VTAB 12: HTAB H PRINT 



IF R* = 

IF R* = 

IF R« = 

GOTO 59 

VTAB 17: HTAB 15: PRINT "FAIT 
: GET R*i PRINT Rs : GOTO 5« 



CHOIX: ■';: CALL - 95S= GET R*: PRINT R« 
CHR» (4) "BLOAD MESS. ERREUR" : GOTO 199 
CHR« (4)"BL0AD COMMAND. BOS" : GOTO 19« 
END 



VTAB 29: PRINT "SUITE TAPER RETURN 



J.-F. GROUSSIN 












JCALL 


-151 














•A884 


.A99S 














A884- 


49 


4F 


49 


M 










A888- 


44 


21 


3E 


CI 


41 


?I) 


''' 


04 


A899- 


52 


53 


CE 


43 


46 


41 


49 


4F 


A898- 


a 


45 


46 


46 


41 


43 


C3 


SI 


A8A9- 


52 


4F 


D4 


44 


.-.■:. 


51 


52 


4F 


AeA8- 


D4 


46 


45 


32 


an 


C3 


4C 


49 


A8B9- 


U4 


4b 


■in 


a; 


C3 


45 


43 


32 


A8B8- 


49 


D4 


51 


4^ 


5.1 


49 


«,.-. 


49 


A8C8- 


4F 


CE 


4F 


53 


-,/, 


57 


CS 


41 


A8C8- 


4A 


•IF 


55 


D4 


«a 


48 


47 


4F 


A8D4- 


'.r 


CD 


43 


41 


54 


41 


4f 


4F 


A8D8- 


C7 


4D 


IF 


CE 


4E 


4F 


■' n 


4F 


A8E9- 


CE 


51 


52 


A3 


49 


4F 


A3 


4tl 


A8E8- 


41 


58 


•u. 


49 


40 


43 


D3 




A8F9- 


D< 


49 


4E 


:i-; 


42 


41 


Jn 


3F 


A8F8- 


C4 


4? 


44 


?n 


3F 


CI 


4? 


4*. 


A999- 


41 


49 


D4 


56 


45 


5? 


49 


C6 


A998- 


II 

















. 

derme- [ 

•'3 sur 
une etiquette G 

(.8 Redaction 



A971- 
A978- 

A»ee- 

AS E - 
A99»- 
A998- 
A9A8- 
A9A9- 
A969- 
A9B8- 
A9C9- 
A9C8- 
A9D9 

A9E8 
A9ES- 
A9F9 
A9F8- 

AA90' 
AA98- 
AAI8 
44;.':' 
AA29- 
AA28- 
AA38- 
AA38- 
AAA 9- 
AA48- 



»7 8D 

47 45 
- 

CS 48 

55 45 
45 47 
4F 4E 
43 48 
5; 45 
4D 45 

52 52 
4? -F 
45 49 

28 58 

53 59 
52 52 

29 44 

45 52 

4 6 49 

46 41 
52 41 
4F 51 
43 4F 
21 44 
21 21 
19 19 
6B 78 



40 41 

28 «E 

=.- .■ g 

29 29 

4E 45 
49 45 
4E D4 
29 46 
45 55 
D3 44 
CE 46 
52 4F 
4£ 54 
4F D2 
45 28 
D3 54 

-: -:; 

5S D8 
4D 4D 
29 47 
4D 4D 
49 52 
21 21 
24 33 
84 93 



4E 47 

4- 4E 24 
4H 49 42 

53 29 4C 

49 4E 29 

32 28 91 
56 4F 4C 
41 55 08 
52 29 44 
2E 29 59 
49 43 48 

54 45 47 

41 58 29 

58 4C S5 

42 55 46 

59 54 45 
49 45 52 
59 52 4F 
45 29 54 
52 4 1 4E 
41 4E 44 
45 43 54 
Al 8D 44 
3E 4C 57 
A4 B8 2D 



• Init Init 

•Loaa D->A 

• i.ave A->D 

•ft'jn Run 

•Chain Chain* 

•Delete Efface 

•Lock Prot 

*Un 1 ocv De.rot 

•C lose Ferme 

• Reao Lit 

•Exec Exec 

•Wn te Ecri t 

•Position Posi tion 

•Open uuvre 

• Append Ajout 

• tsename Chsnom 

•^:.Urt 109 Catal of 

•Mon non 

•Nomon Nomon 

•PR" PR4 

•IN« IN* 

• naxf i les Maxf lies 

• PP FP 

•INT INT 

•Bsave BA->D 

•LOoa-1 BD->A 

•Brun Bfait 

•Ver i fy V.nf 



DIX PETITS HUMAINS 



Pour une fois. e'est vous le serpent qui devez croquer 
dtx pettts humains en evitant de manger le bout de 
votre propre queue! Des mines rouges vous empe- 
chent de sortir de I'ecran et, comme les humains sont 
rancuniers, a chaque nouvelle partie, ils deposent de 
nouvelles mines sur votre chemin ! 



^o 



DidierCAPDEVIELLE 



S REM i^ OtOOUEXM 

7 BOI D.CflPDEVIELLE 
3 fUTI WrESEWflTION 

3e r-Bim- — ii u j-w ri rnrnr in i nnw 
58 HV«3 sc-a 

68 PRIHT-HIVtflLI 7(1, 2a 37 

65 OCTR* IFB»-*-IME**»S 

66 iFftl- " 1 " IMEWir-e CiOT0^8 
6? IFR»»-2-TMEr*«»»5 OOTO/8 

68 lFR»«-3-T«D«*Hie MT078 

69 0OI065 

70 PHIHT-*JTESeE7' : 
72 OCTR* lF«*«""TMEH7ai 

7« iFfl(--ri>*r*n-i oorose 
76 IFM-"2-TK)H-8 00T098 
SB &0T072 

39 ft£n»>»»»)li.ITIftLISf riOM»«9j») 

118 K>E36869.255 C-JSUB«t»e 

113 «"•••• DEPLHt£nEf<T^»»9)» 

128 C.-Ol 

125 IFH-irrCHFOW.L-!T(»e KXIU. 

138 DI-PEEK(137/ 

148 IFDlO9F(Nl.DlOl7f»N&lJl<vltWH[|ijl'.y33TMEN0l-C) 

138 IFDl-'.v. .rnemaa 

155 IFB1-SIKMP-P-22 FtJREP-22,8 PW.Ef *38/i», / PQKEP.3 ■ 

16*3 H : Dl-li , »iW*£tKCP-lK>32lMeiM58 

163 IFD1-17THEHF-P-1 PC*EP*1 .8 P0<t£J'*38i , 28. 7 K*EP.« &0IO2J8 

1?8 lF01-33rTMl*£EX^P*i2K^j£!«t*^»e 

175 IFDl-ailHtytf'-PfiS PQf£P-22,e WJK.EP* 38728.? P0*EP.2 &OT023B 

168 lFBl-18flN»*EE*:<P*lJ032THEM3HJ 

183 IFDl-lSlMEnP-P-1 PWEP-l.8 PuHlVitJ/irj. I pok£P, 1 

238 0010129 

393 ROWMBOfl ftEI<ONT»rE OSJEIan 




<ee ptxtp.e iFPEEt(p-!2i«iiiHEtip-p-a?£ pomp, a Pt*ip*3*T3».7 L-oroTW 

418 POKEP-22,3 FlXEP*J8e?8.4 0OT06e8 

458 POKEP.B IFPEEK(P-U«lirMENP-P-I POKEP. 4 P0KEP*3872Q . 7 0010788 

460 POKEP-t.9 P0XEP*387i>,* &0T0688 

588 P0KEP.8 lFPEE'[<P*22>-lirMEJ*''P*22 P0KEP.2 POKEP-38728. 7 0010788 

518 POKEP'22.3 P0KEP»3874i,4 00Tl*88 

558 POtEP.8 IFPEEK(P»l)-UrMEHP^-.l POKEP. 1 PSWEP-38728.7 0010788 

568 POKEP'1.3 POKEP'38721.4 

688 P0KE36878.15 PCWE366-V. 168 F0S'LL-lTo589 r*XT Pt»E36877.0 H^.'«NV-1 

618 IFr(V8TrCN688e 

628 G0T0118 

639 Wr9)9)9)«60M WVftLE HUfWlH 

780 FOftLL* 16810248 PC*E3697e. 13 POKE J68/3.U i*'1ll PCKC36873.0 K>-WJ-1 

703 PRIHT'trSC 

718 IFSt»18eeiKMNVNV.l 

728 IFMOOIiCfMtWIM*! OOTO110 

;.-■! 001 "■:.-■' 

3999 R£M9>*i9>DE=.'JlH ECRPM**** 

4008 PRINT".* FFFFfFFFFFfFFFFFIrFF- FDRLL-IT02O- PfttHI'H 

EXT 

4018 PRINT- >iam>W<*J&M»uw'JOii- P-7«3 PO-cEP.3 POKEP'38720. 7 

4020 PRINT-»8.-SC HU-18 

4030 FORI1-1T018 

403^ !.*lH7i'»>lDtl>»448>«7782 

4040 lfF£EktO)<>JiIMtN40J3 

4043 POKES, 11 FtKEO'39720.1 r«xln 

4047 1FHM-8THEN410O 

4858 F0RII-1I0NH 

4835 0-l»<!(»MD(l)«44e'*,Vu; 

4068 lFPEE»:>dK>32IHEK4033 

4070 P0KE0.I8 POKEO-30720.2 mE*T!I 

4188 RETURN 

"333 Rtrt»M«cB*-Hi:itkt:. u'.'t'PMiuut ■»•••• 

5888 P0KE32.28 P0KE56.28 

5818 N-7168 rCWI-HlOM'311 P0KE1 .PEEKl J '23688/ Hlxt 

3828 FORL«0IO93 REtHW P>Efl«L.F NE.XT 

3038 DflTn253. 247. 243. 2Jl,2Ji. 231, 133.^53. 132. 2J4, 216. ^32. 252. 216.224. I 

3840 WTn233.233.98.6a.68.24.e.8,0.O.24.60.68.3O.23^..-' ■ .< ' - 

3838 WTH36, li 1.38. 136. i38. »1. 184. 4, 8. 0.0, 0.0. 0.233. ^3. 253. 233. 0.9. 9. 

3969 [IrtTFIJ. j. 3. J. 3, 3, 3. 3. 192. 132. 192. 132.13.. 13.'. 192 

29 

3879 MTFW.28. 73.62.28.28. 34.65 

3980 OOTO1I0 

5999 KE1WMF1H CU Jtui*i 

6880 F-«£J6969.2<!a PRINT 7>»»»l .h... nvi ,: -tKi,u « i-x|'ti • 

^810 PHINT- i Ml f f T TPPER UI* TOUCHt POU» RSJOUCR' 

6820 0E1H* 1FHI---T»*N6820 

6038 RUM 

10808 r"R!Kr«CK<I*7> uviiummw 

tEfUV. 



8.8.* 
66.36. 98.1 



DERNIERE SEANCE 



Eddy Mitchell, FR3 et cinema panaches avec un Mon- 
sieur Cinema. Etoiles et Toiles de Frederic Mitterrand 
epices dun zeste de CANAL plus 

Pierre LALA1N 



Le programme (Jon etre utilise sans POS et avec un memory size de 
32751 Avec un modete 1 ou modele 3. Instruction 900 doit etre 
court -circuitee (avec un -RETURN" par exemple) et les messages 
retapesen majuscules 



IN ■• PNL SEPT. 81 1 JAN. 82 

i as cisiaaNtiOK>ciEA0SMiDCFiNTA-o.xioeFSTiioiDinM<iea>.B< iae>.EC«<2«).f»(3e)>cos 

113 V*--At85C2&lEir5G5M*!2J*K*LlN2N202P20*R2SIT5U3V*i«3I4r«Z5'4- 




12a l»-- 

A D E R N I E R £ 
123 PRlNTiPRlNT-Vou* 
PRINT* !•• ittfn 

l» POINT' i. .... 



5 E A N C E 



1 132*2.1.* 



' i PR I NT374. L*l SI 58. ■ 



• LA DeawiEBE SEANCE 



IT0I13 ^B> 



& 



om it* :w«v.»i i«iuu nrnr wol't teor* *«t aouti ». " jPRIWT, . 

1*0 PRINTaSS*. 'NMBK d* .OMtl't It OU 2) ■ "1 

1*9 2*-I>*£V*iI> : Z*ci-0flI*>*2-THEJKI*3ELSEZ-VOL<I*) 
190 N-R**<V8>iFORK-iTO100iIF8<K>.*fTMEm30 
IS3 iFB<K>-0TV*EN1S3 

169 9'". ■■-«. 

170 D.S:pb:s-B«. •--- — - L D E R N I E R E SE 
--1379.-- — - LA DERNIERE SEANCE — — "13149. - 

— * 10221." -iiLG-B:T-e>PI*0=E-B:S-« 

173 PRINTS256. -J 9 u«f I : - IT1 : : IFBA-eCRI-lT-CNPniNT-*- s 

19* 1F7.-2PRINT3520. -Jov*ur 2 i' 1 T2l IIFBB-ITWENPRINT-.-- 1 

133 *C-**9*<S8-2*LEN(A«<N>>>/2tII*9 

19* FO8L-lTOLENiA*iNMi0l*5UT«79iPRINTaT>*2*L.--*iWEXTL 

ISO LG-LET4<A*<NOiFORL-lTTJLE><<A«(N>> 

290 IF«ID*rO*(N».L. !>-• *T>CNU>^JJ-I ■ GOSUBC731 PSIWTaft-2-t.. " 

2*3 NEITl. 

210 BRENTS&A3. -Scor* P-tSiPRIVT3T6a. -L«lr* : -iP-0 

213 Q-INKE*»lIFr>--T>«£Nai3ELSEPniNT377T.0iIFE-*THENE£*<| 

220 P0RK-lT0ei:f0-£E*(Kto0:sTB735.-C* J . E****# "!GOT0213 

223 NEXTKtPRINTa783.STRING*118.- M t iE-E-1 iE£»'E>-0 

258 IF0-- -TXX213 

233 fORK-lT03*STEP2 

2*1 IFO*MIC*tv«. K. 1 >THEWVOLIH]D«IV«,K*l.ll]IK>» 

2*9 NEXTX 

250 FDRL-1TDLEN(A*<n>> 

233 PRINTaD-65-2H..C«nlI-2BiGOSU8370 

2S0 !FMMi8»'K).L. 1> OOTJCN340 

2S3 IFRWO<1B>OSORL>LEN<A»<N>>-5THEN290 

270 PRIM-3D-&3-2.1.. " ";iF-flMDf5i*2iF00I-lTaFi J-D*6A-2-L*2-I 

279 miMTaj, C»1iO0SUS870iP«>INT3J. - "iiNEXTI 

29* RRII«T3J.»wGO$UB870i PRINTS', - -tiJ-J-i 

285 irj()&.6*.2^.T>CW2e«ELSEP»^T3D-S3-2-L.C*I 

zm ito-"-t>cnt»b 

293 R»I-&3TO«5C<0>iD*-0*t»<t>iPRINT35l2. D«i «-US8<28> iNEXTI 

380 GOSU8860JF-D»62'2*LiFaRK-5l2TOFtPRIN7aK.Ot>X-USR'II uPRIN-aK." -siwE'TK 

:*3 PRINTa&*2^..CHR«(191>liII-2eei006UB8BB 

518 IFaND*I0J<>i0T«N320 

315 C03I-iT3i5:Pb:n-3D.2-l-I26. 'BONUS' nPRlNT3&*8. 5* ! I iGOSUB9eeiPRIN*ar>*2-L-*I2&. 

-I«tWSUB8S0iN£iTIiS-S*I3 

520 F-INTi3O*V/LEX<A*<V)>»HI-120 

325 r0RK-lT0F!P0INT36Aa.S-K!iCOSuee8eiNEXTJS-S*f' 

350 PRlNT8f>.2-L.OirT-T-IJP-l 

533 IFT-LGTHEN3S5 

5*0 P0[vTa0-&3-2*L. * -iKXTl 

5*3 IFP-ei>*NPI.n;.lIP«<PI)-Q5ELSe21B 

330 P»INT3896--R*,*t : "I iFCRK-lTOPI sPR1MTP*<k> ! ■ -I IMEXTK 

533 PRINT37B5.-Lo*->i-.* : -:>:!-IM 

560 F0RK-lTO2e>PflINT3793. -RATRAPPE" I iGOSUB880tPRtMT9793. 'PERDU * ■ > DOSUB8B0 ■ NEX 



SOLUTION DE L'HIPPOREBUS: 


71 


82, 


10 
20 
30 
40 
50 
60 


FOR 1 = 1 TO 12 

HEAD X 

PRINT CHRS(X); 

NEXT 1 

END 

DATA 79,82,71,65 


7 5 


73 




65,77,77,69 











:■:;_:;:;:■.;:■ 



JS-S-F 



570 F-INTt i 



i«KjB870ioorazia 



> FORK-ITOFiPniNTa&aB.S-W 
I QOTD210 

> :F'M-eT>«.'s-s*siPBi\Ta&57.* ■ - ** : s 

I i niO '0 OH Z-lT>CNTl.Tl.SlBB-lELSET2.T2.SlBe»-a 

I IFB8»-*rjflZ-lT><NK«273ELS£X-S39 

I PRINTS*. -(ESPACEJ -1 1T"USR(20)IFOSI-1TO30JQ«-INKEV»- I FA*; 

I NEITHPRIMT3K.- -llFORt-lTO90>NEXT:iCOTO*M 

I -• DICTIOMNAIRE 

! I-I*liREADA*<t)iIFA*<I) (> -aaa'THENftlS 

I NB-I-ri RETURN 

I OATANOSFERATU LE VABP1RE. VOVOGE DANS LA LUNE 

1 DATOHONSIEUR 5MITH AU SEMAT. LES SEPT SAMOURAIS 

i DATALES LUHIERES 0E LA VILLE.B LE HAUTJIT 

I DATAAFOCALYPSE N0U. IVAN LE TERRIBLE.LE O40NTEUR DE JS-- 

I DATAOU RIFIFI OCT. LES K-. E5 .La CHARGE FANTASTIOuE 

I DATALE GRAND ALIBI. LES OVENTUSIERS DE L'AROC PERDLE 

i DATAAUTANT EN EMPORTE LE VEMT. LES UNS ET LES CtJTRES 

I DATALA DCVAUOCE FONT AST I QUE. VICTOR VICTORIA 

1 DATALES RAISINS DE LA CCLERE 

I DATALA flORT AU< TROUSSES 

i DATALE D1NGUE DU PALACE 

! DATADOCTEUR JEPRV ET MISTER LOVE 

S DOTQA«€BICA*i GRAPFITI 

I DATALA GUERRE DES ETOILES 

1 DATAUM AfCRICAIN A PARIS 

I DATACM AOCVE SIEN LES OCVAul 

1 DATALA FUREUR DE VIVRE 

I DATALES DENTS DE LA *ER 

I DATALA VALLEE DE LA P£UR 

I DATACITIIEK KANE 

1 BATATA LAST UALZ 

! DATALES HAUTS DE HURLEVENT 

i DATALA TRQVERSEE DE PARIS 

1 OATAFRQNXENSTEIN JLHIOR 

1 DATAOUAI DES 3B"J«£S 

I DATALES VI5ITEURS DU SOIR 

i DATALES ENFANTS DU PARADIS 

I DATALE SALAIRE DE LA PEUR 

I DATAETAT DE SIEGE 

I DATAA SOUT DE SOUFFLE 

i DATALE "YSTERE DE LA CMA-S9E JAUNC 

I DATALES DERNIERS JOURS DE POnPEI 

1 DATALA GRANDE VA0ROUILLE 

I DATALA GRANDE ILLUSION 

[ DATALA GUERRE DES eOJ'ONS 

f DATALES VOCANCES DE WONSIEUR «JLDT 

i DATALES DUATRE CENTS COUPS 

I DATALE JOUR LE PLUS LONG 

> DATALES TROIS nOUSOUETA I RES 
I DATALE TROISIETC HONNE 
i DATAPOUR UNE ROICNEE DE DOLLARS 
I DATALES HILLES ET UNE NUITS 
I DATALE CONTE DE NONTE CR15T0 
I DATAFRENCh CONNECTION 
i D0TA0OCTEUR JEXILL ET nlSTER MYOE 
I DATALES rfSTERES DE PARIS 
I DATALA GUERRE OES NONDCS 
I DATALES CANONS DE NAVARONE 
i DATALES TBENTE NEUF nDRCtS 
I DATALES "TVOLTES DU KXJNTV 
1 DATALE TRAIN SIFFLERA ^POIS FOIS 
I DATAL' INCONHU Du NORD EXPRESS 
i DATALE CRINE DE L'ORIENT EippfS^ 

i DATAL'AuacitM M lp mnuouf 

1 DATAUNE NU1T A L' OPERA 




70B DATALA SOUPE AU CANARD 

703 OATA^IERRCT LE FUU 

710 DATALA VAOC ET l£ PRISONNIER 

713 DATALE PERE TRANOUlLLE 

720 DATALA FENNE DU BOULANDER 

723 DATODROLE DE DRAfC 

730 DATASERT NDRTS SUR OROONNANCE 

733 DATALE PONT DE LA RIVIERE KJUAI 

7*0 ORTAIL ETAIT UNE FQIS DANS L" OUEST 

7*3 DATALA FOLIE DES GRANDEURS 

730 DATALE TESTAMENT DU OOCTEUR nAGUSE 

733 DATALE BAL DCS VAKPIRCS 

760 OATACRIS ET CHUCHOTC7CNT5 

763 OATRLES HEROS SONT FATI0UCS 

770 DATAA L' QUEST RIEN DE NQUVEAU 

773 DATALA BATAILLE DE HIOWOV 

73t DATALE VOLEUR DE BICYCLETTE 

7B3 DATALA REGLE DU JEU 

790 DATALE CUIRASSE POTEmiNE 

793 DATALE PCCANO DE LA OENERALE 

800 DATALE CRINE ETAIT PRESOUE PARTAIT 

80S DATAL 1 ASSASSIN MABITE AU VINQT ET UN 

B10 DATAMOTEL DU WORD 

B13 DATALE JOUR SE LEVE 

820 DATAALEXANORE LE PIEMCUAEUX 

923 DATALE CLAN DCS SIClLICNS 

850 DATALE VIEUH FUSIL 

853 DATAORANGE 7CCANIOUE 

B*0 DATALES DIX C CTH A MP EHCMT9. 880 

8*3 NfSTRING«(16.0> 

830 POKElS32S.2*0tPOKEieS27.127 

853 FORl-0TOI*iREAO«iPONE52732*l.n.»rn! 

BE4 DATA203. 127. It. 173. £9. 16. 254.258. 1. 21 1. 299. 37.52. 2*t. 201 

863 RETURN 

870 n>57iO0TO885 

873 «•** i G0T08R5 

880 T*^S 

883 PORE52765.HIIHJSR1IH 

890 RETURN 



900 F0RI-ir>**6T01K*T3iREA0NiPOKEI.NiNExn 

903 DATA221. 110.3.221. 102.*. 218. IS*.*. 221. 12*.. 3. 105. *0. 1. 119 

910 DATA121.2S*.32-2ie-S.3.2S4.l2B. 210. lEt. ft. 193. 129.* 

913 * (16*l*-16*t3!-ie*46..flf««. * L , r>o w .**v <irtv*r v.avo 

920 POKE16*lft-£2iPOKE!G*!3-£* 

9» RETURN 



CRASH COSMIQUE 



Le point de non-retour est depasse: perdu dans I'im- 
mensite galactique vous ne pourrez plus jamais rega- 
gner la Terre. Pourtant. des particules energetiques 
apparaissent dans votre radar et passent & votre por- 
tee. Seront-elles suffisantes pour vous defendre 
contre la flotte ennemie qui cherche a vous achever? 

Christophe ROMANIN 



Regies dujeu 

Le transfert d'energie ponctue dun "beep" necessite une pause sur 
ie* 

Vous devei entrer votre nom au debut du |eu 
Vous voila done capitame de trois vaisseaux. avec lesquels vous 
devrez resister le plus longiemps possible aux vaisseaux ennemts ' 
Prenez garde au niveau de fuel qui baisse rapidement 
Attention, un vaisseau peut en cacher un autre ' (les ennemis 3iment 
se dissimuier dernere le 'biberon'. et ils consomment aussi les uni- 
tes energy' 

Vous bougez a laide des deux Heches 5 et 8. 
Lb nom du capitame qui (ait preuve de la plus grande bravoure sera 
memorise, ainsi que son score 



Pelails concernant ledition du Programme 



Ligne 7 
Ligne 15: 



Ligne 71 



■ mode graphique "3" inverse 

- mode graphique '8" inverse 

- mode graphique '3" normal 

- mode graphique "5" inverse 

- mode graphique "5' normal 
10 blancs (erreur sur le \iihnt)i 



Ligne 1000 mode graphique 2 fois 32 "8" inverse 

Les caracteres A, B. C. D. E, sont des caracteresgraphiquos del mis a 
pariir de la ligne 3000 



sp£ 



CTfcVi^ 





CO 3US 4SOO 
LBT P*0 



CAF-rTOIMC 
PRINT INK 



IB FOR !•» TO 31 

" ■■ ■ PRiNT in« a; a 

■ ' t ! FOR r-0 TO P» 

17 60 TO 300 

10 LET ■-IMT IAND»a01 . 

10 LBTT n.iNT innni.'iii • 
aaiLtr x-int (RNO«aei • 

8B LET 2-1NT IRNO.SI01* 
30 POR v-ft TO a« STtP 

IKT OT 

3a pa 



* ■ : 



n. 



33 Ink 3 PRINT ATT v .n."C" PR 
3* InS I- PRINT RT U,«J-D" PR 

t att v-a.x - 

3B ir INHCV0«"S- TNCN LET l»l- 
ir i < l TMCN LCT 4-1 

36 IP INHCVJ.-O- THEN LET I • I ♦ 

ir i >ae tm£n let i*ae 

37 PRIMT RT a* . I , " E " 
30 NEXT V 
B»»PRINT RT V.-a,»," -j PRIMT A 

y-a,n," ••. print at v-^,<, ■ 

PRINT RT v-a.x, ' ■■ PAlN-f RT 3, 

• . " " LIT < -*-i 

S3 ir 

BB ir 

THEN go 



-CI THEN GO TO 10 



ee 



i.rr 



»a0«iM 



OO 3U0 39* 

IP" 1*1 OR 1*1-0 OR !>!•< Til 
'JJ^T"! 30,1*1. B SO~ PmiSc « 

J.^oeep .i.a nrrP .a.i let p 

»H0 LCT . .1.1 OO TO 300 

SS if g -• or i -" on i •> op « - ■ 

"f-N ao to 300 

»7 ir » -o TMfN ao to 100 

7« LCT >«..«> TO »> 

-- print at r 



ink 3 

lO.OO to 10 



5t 3-.17, 

eeep 



■:,,:.■ 



rn' 



00 ao to * 



THCN LBT I 



0,S, rLRSM 1 



. cnprrniNe ".ni.rt ii.10. uoti 

SCORE EOT ■, P PRINT AT IS, 5. 
E MEILLEUR StOAC " . h I , AT 17.0," 



»30 NEXT 1 CLS 
107 CLS OO SUB 

na io to B 

190>LCT «-.«. BETP 

is3,9 eeep »^3.0 



ao vn* i0< 



beep .'*- oer: 
• 3. j beep Hi' 

3.3 BEEP »'3,0 OCeP *»8^3,0 

ccp ■ /3, -l Beep i .0 

131 RETURN 

sen ofi' 

ae* ip > H0 then let i-ta 

aea let * •■>• i to n 

ate ppiffr at 

aOT INK 3 PRINT AT 3,18; rUEL 

810 print at 3.1.3core " ,' p r 
ctupn 
300 lct 0-int (rnoi8bi *8 print 

RT Sn.a.-x PRINT RT 8,1. "SCON 




-, m r-RINT AT 

iaoT 

3003 PRINT AT B,«, " l > iCAASM-COSM 

IOUChi" IN« 1 riRCLF 37,138,1 
3 CIRCLE 883,138, IS INK 3 CIR 
CLE 37,133,8 CIRCLE 833,13«,B 

1O0B INK PRINT OI U.S. It.... 

. .METEOAE .AT 1* ,B. B WIS8 

EMU", AT 1B.B, "C NO'/A ,PT IB 

. S, "6 BlBCAON' • I 1««P l» ' .AT 

30,8, * rwruuif! in«ir> m 

1010 Plasm i print at ai,is,"*p 

• C* pour jouir ir inkcv*-' - ■ r 

MEM OO TO 1080 

101B>OO TO 1010 

1080 CLASH CLS PRINT AT 10. 

PI^AINC 



INPUT AT 10. 

10*0 OO TO 3 

.'i'bb roR ■ "1 TO 
i-,» nr-r - 
Ecj [N»v a 
■- - "annuo 



w*i 



EfH : 
30O1 < 



JfP.f?.' " 

clash i paint 

CLASH • OO T 



> 108 

-0 TO 7 

HSR -0-Jfl ,• NEXT i 

*010 COR o-0 TO 7 

li-SP "■" .o .». NCKT 

4080 COR P-0 TO 7 

I11\1> t .P . t NCKT i 

*A30>COR R-0 TO 7 

USA "a"«^.rf MCKT 
<oi,1 r,)n 



new <t 

or. ir. . 



poce 

POUE 



POKE 



8, ass, a* . BB . 100,100.309,100, 100. 



EST DETENU I 



LABYRINTHE INVISIBLE 



Retrouver son chemtn dans un labyrinthe. cela peut 
encore se faire (programme LABY 1). Mais quand les 
murs deviennent invisibles! (programme LABY) 

Bernard LEPREUX 



Pour la mise en route du programme "LABY". il esl necessaire de 
creer un Itchier ("SCORE-OAT") avant la premiere utilisation Le 
programme ulilitaire "CRESCORE" ci-dessous peut elre utilise Le 
programme "SCORE" est automatiquement protege de I'etface- 
menl des la premiere utilisation du "LABY" Si Ion souhaite renouvel- 
lerlefichier "SCORE", iltaudra supprimer la protection, (A noter que 
le programme "LABY" met 1 a 2 minutes pour etablir le labyrinthe ) 

IRE* LABYRINTHE INVISIBLE 

2SCH PAR LEPREUX BERNARD 

3«rt ADEHIR FRESNOV 

4REH COLLEGE V1LLAR0 DE HONNECOURT 

3REH I725B FRESNOV LE QRANO 

6REH IIPLANTE SUR GOUPIL2 6i KO. Q2FLEX. ECRAN C0ULEUR8 
iSDNNBOHiSOtl 
iSOPEN-SCCRE-ftSI 
20FIELD«l.2eAaNl«.BASSl» 

23F0R r-tTO le 

38GET«l. RECORDF 

33N*<F>-N1» 

iaS(F)-CVT«F(Sl») 

43NEXTF 

5BCL0SE 1 

S3 Din nx<2B.2B>.AX<28> 281.8X1.28. 28) 

BBEXEC. '«.imc»r.c»d" 

B3O0SUMM 

£3P0H.£3a383.BBiP0KE59425. 168 

7B REMINIT: ALISATION DES hUR8 

73F0R 1-8 TO 28IF0R J-B TO 20 

30 A*<I. J)«HW(I. JJ-lslKCI, J)-l 

S3 NEXT JiNEXT I 

98 SEW OUODRlLLflOE 

33 COLOR e>GR 
IMCOUMI 

183PL0T28, 20TO29. 22B 
11BPL0TT022B.228 
113PLOTTO220.28 
l20PLOTTO28.2fl 
1 23C0L0R7 

import; 

133PRINTCHR»(28)lCHR«(l5>lCHR»<l>I"N0r1" 
1A8G88UB39S 

143N*-C* 

13ePRINTCHR»(18B>iCH««<238>rCMft«<l>t-«eor» a oattr*" 

:33PRlNTCHR«ClBB>tCHfl-(23aMCHR.f2>JSCl) 

1S8PCRT8 

IBS REM CHOIK D'UN P~ DE DEPART D' UN CHEMIN 

I7B I -INT<2B-RND<8)*l>iJ -INT< 2B-RND(B>*1 > tCX-330 

173 IF C* -1 THEN .JIB 

138 RX «0:DX-8 UK -8:UX-8 

133 f*(I. J> — I 

19BCX-CX-I 

195 IF JO20THEN IF mt(I. J-l>>8TH£N RX-1 

2BB IF I02BTHEN I -HX< 1*1 • J) ) BTHEN DX-l 

283IF JOl THEN 1^ «X< I . J-I i > 8THEN LX-1 

218 IF KM THEN IFnXCI-1. J>)BTHEN UX-1 

213 OX-«X*0X*LX*UX 

228 IFCOX(3 AND 1B*RND<8> (2J0ROX-8THEN293 

223 DRX-InT'4»RND(B>»1> 

238 ONDRX GOTO 233. 238. 263. 280 

233 IF RX-8 TwEN 238 

248 exa. j)-eu-j*i 

243 COT0173 

238 IF OX-B THEN263 



3e3P«tNTCHR*(») lCHfi«< IS) ICMR»(1> 1 R» 

59BX-X*6«G0T03E5 

393F0R I - I T028i FORJ-1 T028 

GBBlFrlXU. Jl — 1THEN61B 

GBSIFRNDfB) <.5Tt-iENAX< I, J>-fl£LSEBX( I. Jf-B 

61BNEXTJINEXT! 

E13RETURN 

S2BPRINTCHR»<7) I IPORT3 

B2SCQLQR0 

638PRINTCHR»t28> lCfcR«C250) lCHR*<2> 15 

633S-S-I 

64BC0L0R7 

fit5PRI^TCHR«(2Bi lCHR»(23B> iC*R»<2> »S 

63BP0RTB 

BSSRETURN 

E6BIFS) "5<IB)THEN£93 

565NK 18)-N*tS(lB) -5 

670FORF-9TGISTEP-1 

675IFS<F*i ))-S(F)THENE9B 

BEB5UAPN«CF) , \»<?*l) 

eassuAPStci.scFtii 

69B.NEXTF 

69SFORF-ITO2080l\ExrF 

7BBC0L0R8IGR 

7BSCGL0R2 

710P0RT3 

7l5PRINTCHP.*(3B»1CHR»C30)iCHR»<3> i "PALMARES" 

72BF0RF-:TO 18 

725PRINTCHR»f28> tCHR»<30*F-20> iCHRt< I) INK") 

730PRINTCHR»C12B> :CmR»C30»F*2B> iCHRKl) iSCF) 

733NEXTF 

74BEXEC. "B.orot 1. *cor#. a*t x" 

7450PEN"scor* , 'ASl 

73BFIELDHI , 2BASN». SASS» 

733F0RF-1T01B 

7E0L5ETN»-N.l=') 

763LSET S--CvTF«(S<F)) 

770PUT»I, RECORDF 

773NEXT F 

78BCLOSE1 

735EXEC. "B.orot 1. acor#. <t*t ~" 

798END 

B00PORT3 

BB3C0L0R71GR 

91BC0LOR8 

815X-100lY-50lT*2iA*-"REGLE5 n 

B20GO8UB1BH 

B25T-llX=20tY-Y*10 

330READ A* 

S33IF A«-'f i r,"THEN B50 

84B005UB1888 

845G0T0S23 

a38A«-INCH*(8) 

835RETURN 

9880PTA vous d«v*z tr*vtr»*r un labyrinth* 

318DATA nai* vous n* virni ■»* >un our 

928DATA »l voul l« touch*!. 

33BDATA MlhiMrtui»n»nt c»l* vout COUt*r« 

94B0ATA un point. 

938DATA Pour ■• assucir utl I itti l*s fi*ch*s 

97BDATA oour cowmncfr taper un* touch*. 

3S0DOTO att*nt ion luiitz i ' ordinateur Dr»D*r 

998DATA LE LABYRINTHE 

99SDATA* l n 
IBBBPRINTCHRt-CX) ICHR«£Y) lCHR»(T>tA« 
1B18RETURN 



233 AX(I. J)-8lI-I* 
2G8 GOTO 173 

2E3 IF LX-8 THEN 2B8 

27B BXCI. J-n-BJj-J-1 

273 GOTO 17S 

288 IF UX-8 THEN233 

2B3 ft»(I-l.J)-8 H-I-l 

29B GOTO 173 

293I-INT{28«-RN0(B)*l>iJ-INTfSNDC8)»'2B*l) 

388IFrlX( I . J) ) 8TMEN293 

383CX-CX* 1 i GOT01 73 

3lBGOSUB393:COL0RB 

313 EX-18*INTC2B*RND<8>) 

328IFr!*C£*/lB. 1))BTHEN313 

325 PLDT 2B.£X*2B*1 TO 28. EX*28+9 

338 SX-1B-INT£20»»ND(B>) 

333IF«X'3X/tB. 28))8THEN338 

348 PLOT 22B. SX+28+1 TO 22B. SX*20+9 

343 REM GESTIOW DU POINT DS LE LABYRINTHE 

338 COLOR 2iJt-2HY-EX*23:PLOT X. Y 

333 BX<(S*/18)*I. 28>-8 

368FI-29 1 POKE395B2. 29 : GOT 0378 

363 COL0R2IP0KE 3S3S7. Bl fi-PEEKf 58SS2) 

37B IF A<>29 THEN 420 

375 X-XH 

38B I-INT(tY-20)/J0>*l 

3B3T-<x-2a)/ia 

39B J-IST(T) 

395 IFTO INTtDTHENPLOT X. VI COLORB" PLDTX-1 . YiOOTOAIB 

480 IFBXd. J)«BTHENX»X*1 J 'LOT X, Yl COLOR0! PLOTX-2. Y 

4a3IF&itf :. j>.:TL,r N cOLGRll=LOTlB*CJ»2). 10*t I-I ) *21T01B* ( J) *20. 10-1 
5UBB2B 

418 IFX)"221 AND Y>-SX*2I0ND Y (-SX*29THElyEG0 

415 GOTO 355 

420IFAOaTkEN4E5 

423X-X-1 

439 I-INTC(Y-2B>/10>*1. 

435T-(X-2B)/10 

440J-INT(T)*[ 

443IFTO INT<T)THENPLOTXi YiCOLORB: PLDTX-:. Yi G0T04EB 

450IFBX(I. J-l)-0TrtEN X-X-I JPLOTX. Yi COLGRBi PLOTX+2. Y 

455IFBXCI. J-l)-lThENC0L0Rl:PLOTlB"-J*lB. IB* t I* 1 ) TO; B*J*1B. IB* 1-19: 
20 






■ X-UG09UBe 



■>T0ie-J*19. 1B-CI* 



4E0DOTO363 

463IFAO 1BTHEN51B 

47BY-Y-1 

475T»(Y-20>/10 

4E0I-INT(T) 

483J-:nT((X-20)/10)-1 

49BIFTO INTfT)TNENPLDTX 

495IFAXf I. J) -BTHENY-Y*! : 

5BBIF0XU. J>-1THENC0L0RHPL0T1B*(J-1 
UBS20 

3B5C0TO365 

31BIFA!) UTWEN3B0 

313Y-Y-1 

320T-(Y-20)/10 

323I-INT(T>-I 

33BJ-INT((X-20)/10)-l 

533IFTOINTCT)THENPL0TX. Y ICOLOR0I PLOTX . Y* 1 1 GOTO550 

54B!FAXrl-l. J)-0THENY-Y-llPLOTX. Yl COLORBt PLOTX. Y-2 

545 1 FAX ( I-I, J}-1THENCOLORI : PLOT10- ( J- 1 ) -21 ■ 10*1 * 10TO18-J-19. IB* I- iBl Y-Y- 1 I 
UB62B 

338GOT0363 

533Ct---iXI-40 

5E0X-X1 

3B3R«-INCH*<B) 

370IFASC(R»)-13THENRETURM 

375IF ASC<R»J-BTHENCOLOR0iPRINTCMR«(40) tCHR»(13) t CHR«( 1 ) lC*l C0L0R7 i G0TOS33 

58BC«-C»*R* 




IBOPEN-acora-ASl 
28FIELD«1.2BA5N1«, S0551S 
38F0RF-1T01B 

48LSETN1«--XXXXI- 
38LSETS1»-CVTF«<| 

BBPUTai. RECORDF 
70NEXTF 

aacLOSEi 




-20 TO 1B-J-19. t 



-21 TO 10*J»2B. 18*1* 



*( I-D-2B 



1REP1 us.: 

2REM PAR LEPREUX BERNARD 

3REP1 SUR DOUPIL 2 

4REH VERSION SIMPLIFIEE DE LABYRINTHE INVISIBLE 

18 DIM nxC2e.2B),AX(2B.28).&X<20.20> 

12S-0 

13 RERINITIALI5ATI0N DES HURS 

2BF0R [-0 TO 2BIF0R J«B TO 20 

38 A* U> J>-UBX(I. J)»l 

48 MEXT JiNEXT I 

3B REH OUADRILLAGE 

EB COLOR BiCR 

E3C0L0R1 

7B FORI-28 TO 228 STEP 10 

BO PLOT 20. I TO 220. I 

90 PLOT I.2BT0 I. 228 
100 NEXT I 
110COLOR8 

113 BE.l INITIATIONDES CASES A ♦ 1 
120 FOR I -1 TO 2B 
138 FOR J -1 TO 20 
140MXCI. J)-l 
150 NEXT J 
160 NEXT I 

1S5 REM CHOIX D' UN PT DE DEPART D* UN CHEMIN 
170 I -INT<2B-RND(B)-l)iJ -INT<28*RND<B>* 
188 IF CX »1 THEN GOTO 51B 
198 RX -etDX-B ILX -8IUX-8 
288 nX(I.J) — 1 
285 REM-ATTENTION AUX BOROS 
218CX-CX-1 

228 IF J-28 THEN 230 ELSE IFMX( I . J»l ) ) BTHEN RX-l 
238 IF 1-28 THEN 24B ELSE IFMX< 1*1. J)>BTHEN DX-1 
248 IF J-l THEN 23B ELSE IFfT*( I. J-l) 18THEN LX-l 
238 IF 1-1 THEN 2SB ELSE IFMX< 1-1. J >) BTHEN UX-1 
260 OX-RX-DX-LX-UX 

270 IF(0X<3 AND 1B*RND(B) (2)0ROX-8THEN47B 
288 REM 

298 DRX-INT<4*RND(e)*l> 
308 ONDRX GOTO 310.350.390.430 
310 IF RX-B THEN 298 
320 B*<I. J)-8«J-J*1 

33B PL0riB-(J-l)-2fl. 1B*(I-1)-21 TO IB*< J-l ) -28. IB* 1-19 
348 GOTO 1 88 
33B IF DX-B THEN29B 
3&B Bxti. Ji-ai i-i*i 

37a PLOT ie*(J-l)*21. IB 

388 GOTO IBB 

39B IF LX-8 THEN 290 

40B BX(I. J-l)-BtJ-J-l 

418 PLOT 1B*J*2B. 1B*(I- 

428 GOTO IBB 

438 IF UX-B THEN298 

4AB AX(I-l.J)-8 1I-I-I 

430 PLOT 10*(J-l)-2l. 10*1*20 TO IB* J-l 9. 10* I -20 

460 GOTO 188 

47BREI1 

4GBI-[NT<2a*-RND(a>-l) I J*INT< RND(B) *2B- 11 

498 IFHX( I , J) > BTHEN4BB 

388CX-CX-1IGOT0188 

51 B REM 

528 EX-1B*INTC28-RND(8>) 

338 PLOT 28.EX-2B-1 TO 2B. EX-2B-9 

340 SX-10*INT<2B*RND<8)) 

330 PLOT 220.SX+2B-1 TO 228. SX+2B-9 

360 REM DESTION DU POINT DS LE LABYRINTHE 

370 COLOR 2tX"21lY-EX-23lPL0T X.Y 

3B0 BX((SX/18}*1.20)-0 

590A-29I P0KE5B562. 29I0OT0638 

688 POKE 3B387.8iA-PEEK(S85E2) 

610REM 

620 REM 

638 IF A<>29 THEN 730 

640 X-X-l 

63B I-INT((Y-2B>/1B1-1 

S6BT"(X-28)/18 

67a J«INTtT) 

SS8 IFTO INT(T)THENPLOT X.YiCOLOR 0! PLOTX- 1 . Y i COL0R2 >C0T07IB 

690 IFB«( I. J)-0THENX-X*1 i PLOT X. Y: COLDRBi PLOTX-2, Y IC0LDR2 

78BIF BXCI. JJ-1THEN PRINTCHR.(7> I i X-X-l i9-8-l 

71B IFXt-221 AND Y)-SX-21flN0 Y<-SX*29THENPRINTCHR*(7) T i PRlNTCHR* ( 7 ) 1 
l GOTO 1 IBB 

728 GOTO 688 

73aREM 

74BIFAOBTHENB30 

73BX-X-1 

76B I-INT(<Y-20>/lB)-l 

770T-(X-2B)/10 

7B8J-INT(T)-1 

798IFTO INT(T)THENPLOTX. Yl COLORBl PLOTX-1 . Yl C0L0R2I 0OT0828 

88BIFBX<I. J-D-8THEN X-X-l I PLOTX. Yi COLORBl PLOTX-2. Yl C0L0R2 

81BIFBXC I, J-1)-1THENPRINTCHR*(7] I i X-X* 1 IB-S+ I 

B2flOGTO6e0 

83BREM 

84BIFAO 1BTHEN930 

830Y-Y-1 

B60T-(Y-2B)/10 

8781-INTtT) 

8B8J-INT<(X-28)/18)*l 

B9BIFTO INT(T) THENPLOTX, Yl COLORBl PLOTX. Y- I iCOL0R2»G0T092B 

900IFAXCI. J)-BTMENY-Y*1IPL0TX. Yi COLORBl PLOTX. Y-2IC0L0R2 

9lBIFAX(I. J>-lTHENPRINTCHR«(7)llY-Y-llS-9-l 

92BDOTO600 

930REM 

94BIFA(H1THEN39B 

958V-Y-1 

96BT-(Y- 281/10 

97BI-INT(T)-1 

988J-INT((X-28)/'lB)*l 

99BIFTO INT(T) THENPLOTX. YlCOLORBl PLOTX, Y-l i COLOR2IOQTO1020 
1000IFAXCI-1. J)-0THENY-Y-HPLOTX. YICOLOR0IPLOTX. Y*2lC0L0R2 
101BIPAX(I-1. J)-1TMENPRINTCHR»(7) I s Y-Y-l iS-S-1 
1020GOTO600 

1100EXEC. "B,Vl.rir,r„ d " 

1110PORT3 

1121C0LOR2 

U25PRINTCMR*(20> lCHR*<2SB) I CHR*< 1 ) I "SCORE" 

113BPRINTCHR*n80)lCHRt(230) lCHR»(2)lS 

I133END 



HARD COPY 



Un utilitaire pour immorlaliser la partie du siecle. reco- 
pier les repertoires, tableaux de comptes et autres 
compositions semi-graphiques ou tout ce qui peut 
apparaftre sur tecran de votre MZ et que vous souhai- 
tez conserver. 

G.LECANNU 

Ce court programme BASIC de 2 Ko permet. a tous moments de 
lexecution dun autre programme que nous appelons "source", la 
salste puis la recopie integrate de leer an sur imprimante a condition 
toutefois dljliliser le BASIC DISK ET d avoir place au prealable des 
GET ■MAGIQUES" au bon endroit dans votre programme SOURCE 
Le principe en est tres simple. On cree 2 tableaux, fun W1 (n) 
contient tous les codes d'alfichage des caracteres ayant un code 
ASCII existant Ces codes ASCII, entres dans lordre de correspon- 
dence en DATA, sont places dans le 2" tableau W2 (n). 
Ensuite.on*balaye" touteslesmemoiresecran . Pourchaqueadres- 
se memoire. on saisil le code d'aftichage quelle contient et on re 
cherche le code ASCII correspondant 

Sitot trouve, celui-ci est envoye sur la memoire tampon de l'impn 
mante 

Avant de revenir au programme SOURCE, on peut recommencei __ 
tant de fois que necessatre et ce en 2 x 2 dimensions : soil pleine 
page avec lequivalent 80 caracteres par ligne. soil en version redui- 
te 40 caracteres par ligne. soil ces 2 versions mais en supprimant 
1'mtervalle de ligne. 

La version 40 caracteres sans I'mterligne save re plus fidele pour les 
reprdductions de dessins semi-graphiques car mieux proportion- 
nee a l'ecran. 

Si la dimension de ['edition que vous avez determinee pendant ['exe- 
cution du programme "SOURCE" ne vous convient pas. vous pouvez 
a tout moment en changer en cours d edition et/ou supprimer ou re- 
tablir I'mtervalle entre les lignes en tapant respectivement T ou *l ". 
Un regret toutefois mais de taille. SHARP n'ayant pas prevu de code 
ASCII pour les caracteres graphiques (codes de 241 a 255), toute 
tentative de copie de ces caracteres ne vous restituerait que des 
blancs ll y a bien one similitude de caracteres avec certains dentre 
eux mais pas pour tous helas. 

Voyons maintenant comment sntrer dans ce programme : 
Dans le programme "SOURCE", placer aux endroits voulus: 
GET HCS : IF (HCS - " Q") + (CHRS - "*") THEN SWAP FD 1. 
•HARD COPY - 

Si vous avez essoin d'un temps de reflexion pour prendre la decision 
de copier, placer cette ligne dans une boucle d'attente ou bloquez- 
la par un GOTO Dans ce dernier cas, ne pas oublier de sauter ce 
blocage apres le retour du SWAP. 



Lordre SWAP/ du BASIC DISK SP 601 5 permet de passer dun pro- 
gramme dans un autre et revenir au premier sans en affecter les 
variables (un super GOSUB en quelque sorte) SWAP charge le 2* 
programme, ['execute et recharge te t" des la rencontre de END. 
puis reprend lexecution a ^instruction suivanle. 
Atindepermettreledition multiple, le "END" de retour n'est accessi- 
ble qu'apres un CR en fin d'edition 

Vous pouvez reutiliser la recopie autant de fois que vous le souhai- 
tez dans votre programme SOURCE 

Le SWAP permet de conserver aussi les variables et tableaux du 
HARD COPY, ce qui gagne du temps pour les SWAP suivants. Dans 
ce cas. la ligne DIM sera ignoree ainsi que la boucle d'initialisation 
des tableaux. Bien sur. si vous passez par un CLR. le HARD repast a 
zero 

Les transferts de programmes et ['execution meme du HARD ne 
constituent pas un modele de rapidite, certes, (e'est du BASIC) mais 
le resultat est garanti. 



Si vous ne possedez pas le BASIC DISK (done pas de 
SWAP), vous pouvez utiliser ce logiciel mais en sous- 
programme cette fois. 

Dans ce cas : 

- modifier la ligne 190 (END devient RETURN) 

- attention s'il existe d'autres donnees en DATA 

- renumeroter suivant besoins 

- armez-vous de beaucoup de patience car il faudra le rentrer dans 
tous vos programmes susceptibles d'une recopie d'ecran. 
Encore un mot, les variables et index de boucles et tableaux sont 
volontairement ressemblants entre eux et differentsdeceux utilises 
d'habitude. Ce qui ne favorise pas forcement une bonne compre- 
hension mais s'avere indispensable dans le cas du SWAP ou vous 
risquez a coup sur decraser certaines de vos variables "SOURCE" 
si cette precaution n'est pas prise. 
MZ'istes, a vos claviers ! Et rien ne vous empeche de creer un petit 
fichier de caracteres qui vous restituera a souhait voire saisie 
d'ecran. 



RECAPITULATE DES ORDRES A DONNER : 

L'ecran restant fige pendant toutes les operations, n'attendez pas 

du programme qu'tl vous demande ce qu'il doit (aire. 

Des la rencontre du GET HCS. vous avez choisi la largeur de I'edition. 



Vous entrez, apres chargement, dans le HARD COPY La. t ten n* se 
passe Pas de panique ! II vous faut maintenant lut preciser :,i hau- 
teur (mterhgne ou pas) Tapez "* ou".* et cest parti L'impression 
complete peut prendre un certain temps (fonchon surtout du N' des 
codes d atfichage) . les lettres et chrffres se trouvanl au det>ut se- 
ront plus rapides a trouver que tes caracteres sem. -graphiques Qui 
eux se trouvent a la fm Done, un peu de patience, ca chauffe' 
En cours d'edition. si vous changez davis. picorez ;oyeusement run 
des 4 ordres C£), *. * ou .. 

Les 4 annulent toutes indications precedenles et provoquent un 
degagement de papier 

Lescurseurs/ou . vous envoien! sur un GET qui attend 
de largeur Q) ou ♦« 

Q et * vous renvoient au debut du programme, cest-a-dire sur 
GET attendant "" ou •*" 
A la fm. vous pouvez: 

- soit revenir au programme SOURCE par RETURN. 

- soil recommencer i'edition en precisant a nouveau (et dans cet 
ordre) la largeur Qou# puis la hauteur " ou . 



TABLEAU DES VARIABLES 8. INDEX 


W0 
W1 (n) 
W2(n) 
HCS 

wos 




-Temom de passage dans le programme 
-Tableau ddes codes d'aftichage 
•Tableau des codes ASCII 

• Qou * 

■•* ou - 


W7 




-Contient le n^ de position dans ta ligne du 
caractere analyse De a 40 Sen a la 
tabulation. 


W2 




-Tabulation ADDITIONNELLE si HCS- " O" 


W9 - W3 - W5 


W6 


• Index de boucles 


W4 
W8 




-Contient le code d'aftichage a analyser. 
•Contient le code ASCII trouve. 


CHRS (102) 




-(CARIAGE RETURN) 
•Pour supprimer I'intervalle. 
• Pour le remettre 



\til 



ao 



WAW//.V/A PUISSANCE 4 VW//WW.V 




wm^mrs^ <? z -™ K : e 



788 DrtTrt 33, 03, 60, 87, 89. 63,7«, 71, 73. 73,7 

28 R£H I PROCftArTC >Y#0 COPT ■ 4,73.76,7?.?9,79,8e,ei,83,83.e4,B5,80 

38 R£n t flUTEU* G.LECAmJ * 218 Orttfl B7.88, 83. 38,231 .785.321 ,393, 288 

« J£fl I CREE SWt S*¥WP nt-8SK * .48,49,58,31,53,53,54,35,30,57,43,61 

45 REn * BASIC DISK SP 0815 * "* D*™ 53,47,40,44,323,231.190,219.227 

48 SEER itiii»iitiiiiiiiii»iiiiiliilit .220, 21 5, 21 3, 338,333, 134,133,190,193 

58 P«!NT^p-t-:U?>a:U2-8;IFMC*--8'TMEr*rt" 238 0*™ 287,282,128,225,254,298,338,95, 

28 248.241,247,83,284,719,378,233,245,58 

si ue-u0,i.-iFue>ir«rra3 3« »"« 34,68,31,243,33,84.381,02.352,3 

53 Olfl UI(248).W3(7*e) 2,198,223,288,388,211,218,353,33,34,33 

53 6eTUB*s|FUa«.*8-TH£H68 258 Wirt 30,37,39,33,48,41,43,47,232,240 

54 ]FUe«=-'B-TMEM*RJMI^P-t*iGOI0Oa ,235,234.193,137,733,249,726,231.338 

53 GOT053 **« MIK 237.324,253,216,213,247.249.317 

68 lfMC«'-B*IneN75 .714, (97, 161,154, 153, 156,148, 178,151 

78 PRIMr'P'P?I«T'P'6'iU7*8iU7-a 278 QMrt I 57. 168, I 75, 163, 184 , 1 73, 1 70, 183 

75 IFW9MTHEN3B ,158,188.157.104,158.165,171,103,155 

SB FD»U3*9T0248iUl(U37-W3i*tEi4OM2CU3):Hex 288 DATA 189. 163,187, 153,138,135,148,133 

I , 1 67, 1 73, 14S.H 7, 148. 149. ma. 181,182 

38 !FMC«--9-rnENU2-28iU7*B 238 CWI« 174,173,160,179,185,169.177,131 

189 F0KU3-S3246TPS4247 . 130, I 41 , 1 34. I 32. 137. I «?. 191 . 1 33. I 38 

118 U4-PEEXtW3) »« I*™ 143, 138, .73. 1 39. 1 44, ■27,8,8,8,8 

128 F0RU5*8tO348 ,8,8,90,97,39,39,188,181,182,183,184 

125 G€TMC*;[F(MCt»'9-;.(MCi>-«')Q0Suei9e 319 DrtTrt 1 12, 1 13. 1 14, 1 15, 1 10, 1 I 7. 1 18, 1 19 

:G0rOSe ,128, 131, 122, 123, 134, 125, 170, I8S 

127 GeiU8«iIFtU8«.-6-l'tue*=-9-]G0SuBI8B 378 Ortlrt 8,9,8,8,8.8,8,180,187.188,189.8 

:G0ICMB8 .118,111.8.112,8 

138 IFU4-UUl*5JTMEf*l8-U7<W5)iS0!0ISe 489 REfl SP NOUUEW CHOIX 

149 NEKIU5 

115 PRINT'PTA8[U7*W2);- ' ; iU?-U7« I iGOIOt «*3 W81*t I 

BB 419 GETK* 

ISePetlNI^PrWICM?^]!^*!^);:"?.!*?*! 42B IFtHC*-t-]*[ifl«-B'ir N ENPfitHI'P-9- : 

189 lFU7'49rMENU7»9iPRtNT'P 601039 

178 HEXIW3 * Je lFtMC*"'»-l*IW8«-'B*JT«EWRINT/P'6-' 

175 COSUBIB9-GOI0139 PRINVP'B- :COI038 

188 F0**.|T0l8.P«»im/P;r<><Ti«TWw " e !?«<—'*' )»(U84.-8- Jtr«MpeiNI'P-9 l 

138 GEIHC«UFMC»-CH0«(IB2)8OSU9IB8:P<i!riI G07O78 

'P-8-:EK3 4!B tFtMC«--»-)«tU»4.-«-)IHENPRIMt'P'6' 

195 IF(MC4--8-).(«4.-t-J0OSuei89 ; 00rO58 PRlNl'P'6' :GOr07fl 

198 00f0l99 48e GOT0418 




/tw* 



QUADRILETTE 



Le but du jeu est de remettre des lettres dans lordre 
alphabetique au moyen de rotations de cases de 
quatre lettres (dans le sens des aiguilles d'une montre). 

Herve JANOD 



Mode d'emptoi : 

- Ecrire le programme. 

- Etendre le nombre des variables a 46 (DEFM 2). 

- Lancer le programme avec RUN. 

- Le CASIO FX 702 P imprime le jeu actuel et puis "CASE N02" 
Repondre parun nombre de 1 a 9 correspondant aux rotations indi- 
quees crdessous ; 



Une fois en fin de jeu. vous pouvez echanger deux lettres en tapant 
CASE N° et les deux lettres a echanger. 

NOTA : Le jeu necessite une imprimante Sinon. modifiez le WAIT de 
la ligne 41 de facon a ralentir l'impression sur l'ecran des resullats 



&r<& 




f% 702 



<•• P»6 LIST 

m.: 46 PR6J 1529 

PB: 569 SUPS 
5 VflC IFOR 1=1 10 

16 
18 l="fflCHEF6KIJI!L 
IIIIOP":RI=IIIMIH 
I (Pftljl'l6)i|,l 
):F0P W 10 I 
28 IF M=M(J) THE 

25 HEXI JiM(I)sM 
SKEXT I 

48 FOP 1=1 TO 16 S 
IEP 4:PRI CSR 2 
HKICCSP. 6;«l 
(I«1)ICM ie;m 
(i«)i 

4! MIT 28IPEI CSR 



l4lflt(H3»:HEH 
I I 

58 I HP "C8SE NO.", 
C=C=IHT C:Z=2»1 
I IF C=8IHEN56 

51 IF C<l;PRT "ERR 
EUR": SOTO 58 

52 IF C»;PRT "ERR 
EUR":60!0 58 

5J IF C)3:IF C<T;C 
=C»l:S0T0 55 

54 IF 06IIFKI8: 
C=Ct2 

55 GOTO 68 

56 1HP ■ECBRM6E OE 

LETTPES",LI,llt 

57 FOR 1=1 TO 16:1 
FM(l)=LliE=l 

"■ K SMi=»i;F=l 

59 HEXI I:lll(F)=LI 
:»t'E).-m:£S8 6 



4:PRI "IHIEROIT 
-•"ERWI'iffllO 
69 

68 Jt=fll(C):fll(C)= 
BKC>4):RI<M> 
=8KCt5):fl»(Ct5 
i=fll!C*l) 

61 «!!C>li=JI:GSB 
£4:6010 48 

64 FOR 1=1 TO 16:1 
F fll'.l!>HIKI.I 
i:RET 

65 NEXT |:PRT "6M 
NE EH";2l" COOP 
Si" 

(1 INP "UNE (WIRE' 
,VI:IFKI="0" T 
HEN 5 

69 EW 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



Su>re de l« osqv I 

II est pour le debutant un 
extraordinaire "SESAME" pour 
penetrer le monde mtormatique, 
et pour I'utiltsateur confirme. un 
oulil puissant pour toutes appli 
cations commerciales. techni- 
ques, scolaires 

Pour moms de 1 750 F, it est pos- 
sible d'avwr un veritable ordma- 
teur de poche donl les capacites 
memoires pourront evoiuer par 
I adjonction (en option) de 
modules de memoires suppte- 
mentaires 

L'ordmateur de poche devient 
un veritable outil de travail par 
I'adjonction d'une table tracante 
4 couleurs. et d"une micro-cas- 
sette encastrabte. et permet. 
sous un format reduit 21 x29.7. 
d'utUiser un veritable ordinateur 
de voyage 

Le PB 700 possede une capacit e 
de memoire extensible II est 
muni d'un BASIC extremement 
putssant et dune memoire ROM 
de 25 KB Sa memoire RAM de 
4 KB en version de base, peut 
etre etendue jusqu'a 16 KB par 
I'adjonction de modules OR4 de 
4 KB chacun qui viennent sen- 
castrer dans des logements pre- 
vus a Hnteneur du PB 700. 
Enfm. te dernier atoul et non le 



momdre du PB700. est qu'il 
de lirrfiprochable 
qualitC CASIO. 

Nous disposons ainsi au- 
;ourd hui^urlemarchedumicro- 
doni le rapport 
performances -pnx nous parait 

■ 
Nous disposons ainsi "en poche" 
de 16KBRAM pour un encom- 
brement de 200x88x23 mm 
Tout ordinateur necessite un 
affichage pertormant L'^BZOO 
dispose d'un ecran graphique 
geant qui permet dafltcher un 
adressage direct de 5 1 20 points 
Son utilisation est etonnante 
dans te trace des courbes de 
graphiques.d'histogramme.etC- 
II permet egalement faflichage 
de 4 lignes de 20 caracteres et 
dispose sur ROM de plus de 
222 signes aflichables; 
1 59 caracteres et 60 signes gra- 
phiques parmi lesquels nous 
trouvons des cercles, des Carres, 
des triangles, des as de pique, 
de cceur Tout un umvers pas- 
sionnant pour rendre plus 
vivante une communication 
avec I'ordinateur dans le 
domaine des applications pro- 
tessionnelles et... des jeux. 
La valeur d'un ordinateur 



depend egalement de I'.mpn- 
mante qu'tl peut utiliser 
Le PB700 peut utiliser (en 
option) une veritable TABLE 
TRAQANTE 4 couleurs (FA 10) 
de grande dimension 114 mm 
Cette table tracante permet dil- 
lustrer des calculs au moyen de 
graphiques de courbes. a n.slo- 
gramme. et ceci grace a des ins- 
tructions programmables tres 
pertormantes telles que CIRCLE 
pour traces de courbes, et QUA- 
DRANGLE pour dessiner un rec- 
tangle 

Des zonages faoles. des traits 
plems. pointilles. une Vitesse de 
trace de 52 mm/seconde. font 
de la FA10 un outil pnvilegie 
pour les architectes. ingenieurs. 
responsables commerciaux. 
etc. 

La FA 10 est egalement une 
imprimante a caracteres de 
haute quahte qui permet une 
impression dans tous les sens 
avec 10 tallies dlfferentes de 
plus de 220 caracteres a vitesse 
maximum de 11 caracteres/ 
seconde. 

Une originalite fort interessante 
est utihseesurlaFA10:2syste- 
mes d'impression. En effet. en 
version transportable (la FA10 



est livree avec une n 
rouleau de papier de 24 mm de 
diametre est mcorpore dans le 
carter de la FA 10 Toutetois, lors- 
que rappareil est destine a etre 
utilise sur un bureau, il est pos- 
sible ae fixer 2 bras exterieurs 
qui supporteront un rouleau de 
rja&ier d'un diametre plus impor- 
tant (70 mm). 

Le PB700 peut evidemment 
avoir une memoire supeneure a 
1 6 KB. et ceci grace a la connec- 
tion sur magnetophone 
La FAlOest egalement un inter- 
face magnetophone qui permet 
de sauvegarder vos program- 
mes et vos donnees sur un 
magnetophone exteneur. ou de 
communiquer avec un autre 
PB700 grace a une deuxjeme 
FA 10. 

Enfm. I'Homme de terrain qui 
souhaite disposer dun veritable 
systeme informatique integre el 
compact, pourra utiliser un 
magnetophone a micro-cas- 
sette encastrable dans la FA 10. 
Cette micro-cassette etant 
commandee directement par le 
PB700 




LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX ! 



[et PROGRAMMES 
pour 

rortSnateur familial 
NSTRUMENT 




Programmez vous-meme en Ti-Basic grace a des instructions simpies. sans 
aucun peripherique ni module complementaires. Des jeux originaux et passion- 
nants avec couleurs, graphismeset sons : Jeux de mouvement (Bowling, Bataille 
de 1'espace, Labyrinthe, etc.). Jeux de reflexion : Oames, Pendu, Awari. Tour de 
Hanoi, Arch itecte. etc.). Jeuxdesociete (421, Goldie,Cochon,Mastermyster.Chif- 
fres et mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque, etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR, Arrondi. Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux: Backgammon, Sous-marin,Trappe, 
Roulette, Casse-tete. Puzzle, Echecs. Tachitoscope, Kim, Paires, etc... De la musi- 
que a inclure dans vos programmes: Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs:Arithmetique, Calcul de 
puissance. Regions de France, entrainement a la logique informatique, etc. 
100 pages. Format 21 x 29.7. 155,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu.il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de voire ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.). des jeux de societe (Theme astral. Drapeaux, Poker. Harmonium, 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pour creer des lutins, 
fusionner des caracteres. dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155.00 francs francais. Disponible. 



Vous connaissez le Ti-Basic. vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques. y compris la haute resolu- 
tion, Acces direct a la memoire centrale. Grande vitesse dexecution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables, a maftri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195.00 francs 
francais Disponible en francais et en anglais. 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

rEXAS INSTRUMENTS 

Tome 2 




Programme* «fi Ti BASIC pour TI 934A 

JEUX et PROGRAMMES 

pour I'ordinateur familial 

rEXAS INSTRUMENTS 

Tome 3 




DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISOUETTES SHIFT EDITIONS. 27 rue du Gal Foy, 75008 PARIS 



Nom/e.«oon, III I I I I I I 

I I I ' ' ' I I 1 I I I II I 

1 I I I I I I ' I I I I ' I Cod. POM! I I I I I I 

V..K I I I I I I I I I I I I I I I I I I I I I I 



TOME 1 Q 155 F 
TOME 2 " 155 F 



TOME 3 n 155 F 

ASSEMBLEUR D 195 F 



CONTRE REMROURSEMENT FRANCE f 20 F O 

CONTRE REMBOURSEMENT ETRANGER I 30 F D 



REGLEMENT JOINT. . . 
cheque Q ccp D 



I i i i lOitV 



DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous os- 
sayons de falre quelque chose 
de different : nous organlsons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dlgnes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans te choix des 
programmes qui devront etre 
ORIGINAUXetFRANCAISSi 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
ciallstes vous dira comment 
I'ameliorer pour pouvolr nous le 
proposer a nouveau. 



Pour partlciper, II vous suffil de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsl que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratulte- 
ment des bona de participation 
en ecrivant au Journal. 
Sonne chance! 

Realement 

ART i HEBDOGICIEL organise 
de facon mensuelle el trimes- 
trielle un concours dote de prix 
recompensanl le meilleur logi- 
ciel du mois el du tnmestre. 
ART 2 Ce concours est ouvert a 
tout auteur de logiciel quetque 
soil le materiel sur lequel il est 
realise L'envoi d'un logiciel en 
K 7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de noire 
journal constitue I'acto de can- 
didature 

ART 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
quality et de loriginalite les logi- 
ciois qui sont publies dans le 
journal. 

ART 4 Ce son! les lecteurs qui, 
par leur vote, determinant les 
meilteurs logiciels mensuel et 
trimeslrlel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART 6; Le prix alloue pour le 
concours irimestrlel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre.1, rue des Halles 75001 Paris. 
ART 8: HEBDOGICIEL se reser- 



ve le droit d'interrompre a lout 

momenl le present concours en 
on avisant les lecteurs un mois 
avant 

ART. 9 : La participation au con- 
cours entraine ['acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27, rue du Gat 
FOY- 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage do vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favorttisme pour 
les ordinateurs plus puissants 
ou Ires diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom 

Pre nom : 

Age 

Adresse ; 

n" telephone : 

Nom du programme : 

Nom du materiel utilise 

declare etre I'auteur de ce programme qui nest m une imitation m 
une copie d'un programme existant Ce programme reste ma pro- 
priety etj'autorise HEBDOGICIEL ale publier La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupanl pas une page entiere sera remunere au prorata dels sur- 
face occupee) 
Signature obltgatoire : 
(signature des parents pour les mmeurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descnptif Detaille du Materiel uti- 
lise, d'une Notice d'Utilisalion du Programme, et d'un emballage 
timbre permettant la reexpedition du materiel non public 



RECOMMANDATTONS AUX LEC- 
TEURS OUISOUHAITE NT FA1RE 
PUBLIER UN PROGRAMME : 

• Indique? sur le support 
magnetique lui-meme votre 
nom, le nom du programme et le 
materiel auquel il est destine. 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'ApplesurPCl500. 

• Note* dans les premieres 
lignes de votre programme, sous 
forme de REM. votre nom, le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



rons ainsi reperer facilement les 
listings, une fois sortis de I'impri- 
mante 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'empioi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres cour- 
iers doivent egalement etre 
se pares car traites par d'autres 
services. 

• Joignez, si possible, un listing 
du programme et un organi- 
gramme. 

• Entin, lefindufin.expliquezles 
particularites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



TEXAS INSTRUMENTS OF- 
FRE UN MODULE (A CHOISIR 
DANS LA GAMME DES LOGI- 
CIELS Tl 99/4A) AU MEIL- 
LEUR LOGICIEL TEXAS DU 
MOIS. 



HACHETTE MICRO INFORMA- 
TIOUE OFFRE UN ALICE AU 
MEILLEUR LOGICIEL DU MOIS. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSf, SHIFT, SYBEX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DURIE2 CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CEERS.232.C. 



NUMEROLOGIE ^ cA 



Apr6s f'astrologie, la chiromancte, les biorythmes et la 
devination, voila la numerologie, va-t-elle influencer 
votre vie? 

Frederic RACAUD. 



La numerologie est un systeme qui repose sur les correspondences 
entre I'alphabet et des valeurs numeriques. Elle permet de transfor- 
mer les noms en nombres pour ensuite interpreter ces valeurs en 
fonction de tables de qualites qui leurs sont attributes. 

Voila le tableau de correspondance : 

1 2 3 4 5 6 7 8 



ABC 
I K G 

Q R L 



Par exemple, une personne dont le patronyme est KASPER TINA 

obtiendralt !e resultat suivant : (2 + 1 + 3-t- 8+ 5+ 2) + (4 + 1 + 5+ 1) 

-3Z 

En additionnant les deux chiffres de ce resultat, on obtient 3 + 2- 5 

qui est le NOMBRE D'EXPRESSION de Monsieur KASPER TINA (ou 

Madame?). 

On fait de meme pour les conso nneset les voyelles (lei, 8 et 6) et on 
tire de ces resultats un portrait psychologique de l'individu. 
Par exemple. KASPER TINA possede un don certain pour convaincre 
son entourage, le physique a une importance pour lui et II esf non 
seulement excentrique mais aussi irrasclble et nerveux. 

La numerologie, et ce programme, prend en compte ; 

- la longueur du patronyme; 

- la premiere voyelle du nom; 

- les initiales; 

- la lettre axiale du nom. 

L'analyse de toutes ces donnees offre un apercu general de la per- 
sone testee. 
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Ecoutez RADIO RIVAGE 
CONTACT 91.4 MHz, "ecran 
magique". de 1 5 h 30 a 
16h45; ORIC FRANCE est la 
avec Denis TAIEB (le patron !) 
en personne.iLe 3dGcomtye) 



2 REH- NUHEROLOGIE 

J REn- •» 

* CLS 

it oosue 339ee 



24 PAINT* !• nitwitldii r urnil 

J- in-' 
2? F-RINI*t..i*-.l*- K» no« M 



31 PRINT* I' int.nt i *n d* *•«■ wl voudral 
«nl 

32 PRIHT" *y«' * I* nu»*r* la* >*, *.«• 

II 

33 PRlNT'l.ul UfllT cowl, du no- I. r-lu 

• !-•-* 

34 P«|HI-iu,««nl »>l»l, •••* »'ll •'• 

• It 

33 PRINT-d'un (urns* ou d'un "■••udonyv*. 

30 PRINT'Tsul* Hdlllottitn du nam -.nd. 

(il I* - 

3? PRINT**.. •(( ..fnlllo.llv*." 

48 OOSUB 88888 ;PAf*£R 3:JhK4 

90 CLEM) :x-8:u-«:e-8:En-«>!N-8:C£-a 
97 PH*8 A-S 

mi om HO«(2),ci*ri0),c«c3ej 

S3 CL&;ALPt*4d--0U£RTrUIOPASOFGMJKLt/CU8H 

iei ping 

183 PRINT 

iee iwnji-Noni*iMO»C2;ir«Tjr*Pw£Noni''iHO 

18? PRINT 



ies print *oooooooooooooo< 


132 IF M"'U" THEN X-X«6:U-U'6:1N-IH-1 'G 


1278 RETURN 










1388 RED 








133 IF rt*-*U-TMEM X-X'«:|N-INMiGOT0228 


1318 REH 








134 JF «JM~X* THEN X-X>fl:En*En-i:G0t0228 


1328 REn 




111 (TEH- 




133 IF M--T- THEN X-XH :1M-IN*|IG0T0228 


1338 REH 




112 REM- CMAOUE LETTRC BEC01 I UN 

113 REn- NUTIERO KM) 


ISO IF M--I" THEN X-X>fl:En-£n.| iG0t022e 

137 IF M-'W THEN X-X.fl;PM-pM.i .COI0228 

138 IF fid-' "OR Ad-"'" OR Ad---- THEN f¥t 


1343 REH- INTERPRETATION OU NOH 


2117 RR|HT-P.f«»nn** lnd*cl»*< du In Mm 






1347 REn 


7153 RETURN 








1348 REn 




ii7 REn 




288 PRIMI-: ::;::::::::: :i: ::::::: :: I :- 


1343 REH 
















2888 PRiNT-TENOANCESr dc-»lo*t idft. 






Then x-x»liu-u»l 'CE-CE'I t6 


283 UAITlieeiCOTO 30 


IM 










2881 PR|NT-..*Hien, MltMM a* 










rt.P.n- • 




13* If IW--B" 


THEN X-X»2i£n-£rt.| JG0f0228 


280 REn 


2882 fRlNT-d.ne., »rl«lft*lltf d. 










<• *t dd" 




13? ir n«--o- 


THEN K-X'4iPH-fM>l iG0rrj228 


788 REn- CALCUL 


2883 MINT*l'inltl*llV».C«R«kl8l 






THEN X-XtSsU-V^iF-H-f-H*! Id 




Mil 
















2884 !■•-■ 1 m r ■ . . » < ,..,■. .,,-.. hii ro« 






THEN X-X.8iIN-|N.pGOr0228 




id* 




133 IF M--0" 


THEN X-XO:CE-CC'l iGOr0228 
THEN X-X.31CE-CE-1 'GOI022B 


212 RE" 

228 Mtxr 1 


2883 MHMl-».ritn«. dan* un* wO . 


2388 PR|Nl-T£NOANCESI- 
a lldf SMl P»1NT-Endur.n«*. IdrMt* d* «-•• d* 






738 ad*STR*(U>;(.0Suai248:vr 


2880 I'RIMI'dUilro.ii.. Ttndtnc* 




then x-x«iiu-u»i i£n-Enn m 


248 r.-X-'J:R«-SrRdlC):COSUOl2*8iC-l 


d* I'd-" 


SM d. ?>•' PRINT-lonl*. ly-bel* d. 1* »*«t**ti 


0T027e 




241 (i« \ui*< ■> .r.T.iiin ;mh::/-T 


788? PR|NT-*v4nt tl n» l«lt »u*»* 


138 IF M--J" 


THEN X-X*HCE-CEMiGOT022e 


238 GOSU8 1243 
233 FOR 1-1 10 9 


2828 RETURN 


2383 PRlNT-d'i-««iB»li*n nr... fI»I 




IhEH X-X-2UNMNM :COT0228 


738 IF X <)I THEN NEXT I iPRIMT CtWdCM 


2833 REH ddlddd CMIFFRE 3 **»»**» 


2384 PRtNT'tdildfin**! t*"* • !•<'•. "• 




THE« X-X>3>CE-CEM<COrD220 


81-ERREUR- iSTOT* 






THEN X-X*3iFtl-F*H»l 10010228 


784 r*RlMI"HOrWR£ D'EXPRESSION - IX 




, ,„», 2383 PRlNT-»f4»-dll4U., Mil t»*Mlll*Rf 


143 IF Ad-'N- 


IMEN x-X«3iCE-CEM I&OI0228 


?ns nciuniiioa.iDaeiGOSua ceaee 


7118 PRINT". yi* l. d* 1* VII 


144 If fUm-'O 
TO 228 

145 If *«--Q" 


THEN x-x«7iU-u.7nN-INM JO 
THEN X«X»I UN-IM.I 10010728 


27* GOTO 3188 

1248 r-o 

1343 FOR 1*1 10 LEN(Bd) 


Illl PRINT-. ,.ni* d'huadur, ••*' 


( J, e 2380 PRINT-OEFAUTSi- 

238? PRINT" Tt IdttdlRi l«u>d*u» d'.ir- lid 


I4« If M**B" 


!H£M X<X>2:En-tn>PU3rQ228 


1238 C14-nl04<8«. 1,1 ) 


3112 PRIMr-tl»n, Mdlr J. ••!« •! 


2388 PRINT"!*, MUnKlii." 


159 IF rtd.-S' 


rn£N x-xO'En-tn*! icoro 22 


1233 T-T'OALtCld) 


Lib**, " 


8 




1700 NExl 


2113 PRINT'^'tonn.t Judldl •! »4 


11*8 Id 


131 IF M--T- 


IMEN X-X<4Jfn-£ntl.GOr0228 


1203 IF t)3 THEN 8»-SlRd(n:l-0:OOro]?**j 


• d*n« 





ACHILLE ET LA TAUPE 



1 10 

l so 

1 M 
140 


□osue iobo 

RANDOM! 2E 
(WKliR 1430 
OOSUP 11 SO 



ACHILLE ET LA TAUPE 



bOUCLE (TUNC I PALE 



IAO FOR I-l TO 200 

170 J-INT lRND«:il M 

1BO IF J-l TKEN 240 

190 IF J-2 THEN 990 

ZOO IF J<>3 THEN 270 

210 Al-<RND>2> -1 

220 Bl-(ftND»ri 1 

230 BOTO 270 

240 IF Zl>7 TMEN 270 

230 81 -O 

24.0 A 1-0 

270 A-A*A1 

280 B-B*B1 

290 IF A<1 THEN 900 

3O0 IF A>23 TMEN 920 

3IO IF B<2 TMEN 940 

320 IF 8-30 THEN 960 

3JO CALL eCHARtA.B, 1M> 

340 IF 1MO140 TMEN 360 

330 I ft- 32 

360 CALL HCHARIA.B, I20> 

370 R-ASS<X-A) *ABS<Y-B) 

380 IF TNT<R/!3t M- --1 THEN 4s> 

390 CALL SOUNDC-SOO,-0,R»2> 

400 CALL C0LOR(t4,VAL<SE0«(A« 

410 CALL HCMAR<AO,BO,IM> 

420 AO-A 

430 SO-B 

440 FOR M-t TO 3 

430 CALL KEY<3, KEY. CODE! 

460 IF CODE-O THEN 310 

470 IF KEY-88 THEN 740 

4BO IF KEY-69 THEN 760 

490 IF KEY-68 THEN 7B0 

300 IF KEY-83 TMEN BOO 

310 NEXT H 

320 GOTO 630 

330 IF X<1 THEN B20 

340 IF X>24 THEN B40 

330 IF V<2 THEN 860 

SAO IF Y>30 THEN 08O 

370 CALL MCMARCXO.YO.O) 

30O CALL GCMAfifX.Y.O) 

390 IF 0-120 TMEN 1370 

600 CALL HCHAACX.Y, 140) 

610 XO-X 

620 VO-Y 

630 NEXT Z 

640 REM ••••....••••• 




^=^>- 




TEMPS ECOULE 



T\ 



-99/*^ 



Le jardin de ce pauvro Achille est ravage par une 
ignoble pelite taupe aussi vorace que myope. Pouvez- 
vous I'aider? 

J.-M. DECLERCQ 



100/S,S»3> 



6BO CALL CLEAR 



690 PRINT "TEMPB ECOULE. "itl 


130O 


FOR V-l TO P«20 


700 FOR TP9-1 TO IOOO 


1390 


CALL HCHARIRND*22M.RND*29*2, 133) 


710 NEXT TP8 


1400 


NEXT V 


720 GOTO 1790 


1410 

1420 


CALL MCMARfX.Y, 140l 




CALL SOUND. 400,440. 10) 


740 X-Xt| 


1430 
1440 


RETURN 


730 OOTO 330 




760 X-i-l 


143Q 


CALL CLEAR 


770 OOTO 330 


1460 


CALL SCREENI12) 


700 V-Y*l 


1470 


CALL CHARU20.-0OOO3C/E7E241866-1 


790 BOTO 330 


140O 


CALL CHAR(l40.-38FE2C10FEBA2B6C-> 




1490 


CALL CHAR(131 .-OOZ48a3C7E") 


BIO OOTO 330 ^^_ 


1300 


CALL CMAR(I32,-411B38FEFF004080"» 


020 X-23 ^^^ 


1310 


CALL CHAR(133,"3C7E7FFFFFOO2470-> 


B30 OOTO 330 _^\l J 


■ 320 


CALL COLOR(12, 1, 1) 


B40 «-. ^+ %^^ 


1330 


CALL COLOR(13. 10, 1> 


830 OOTO 330 ^ f^T*^ %^^ ,^»* 


1540 


A»-" 23769" 


<"■" »-*° _ |V^-/ cL» 


13SO 


RETURN 


B70 OOTO 330 .^0% m^^G^ A lr 


1360 




080 ,-2 Vkl^ ^»A ^^ 




B90 BOTO W^ M * ^ W B % ^^ 


1370 


CALL HCHAR<XO, YO.1401 


9O0 A-23 ^r ^ lilr *^ 


13BO 


FOR N-l TO 3 


^•l 1%% 


1390 


CALL HCMAR(A*1,B. 130*N1 


930 A-l ^»\^M» 


1600 


CALL SOUNO(-3OOO,-0*N,21/N» 


930 ooto 330 W — mm~ 


1610 


FOR TPS-I TO 3O0 


940 B-30 %p^^^ 


1620 


NEXT TPS 


930 OOTO 330 «»^# 


1630 


NEXT N 


960 B-2 ^^ 


1640 


CALL COLOft(12,3, 1 1 


970 QOTO 330 . _ uf . . 1, 
900 REM Sl*»* tf- X<>3 1HCA - " D 


1630 
1660 


FOR N-l TO 3 
CALL SCREEN. 9> 


le '•■-> r<j.t rp& - ' £ Tj -i*>t> 


1670 


CALL SCREENS 1T> 


990 I-INT(RND«3)*1 


1600 


NEXT N 


"1040 CALL HCHAR(A*1,B,130*N) -r-pi 
IO30 CALL SOUN0<3O0,-7.30/N> *OiO «F** 


1690 


FOR S-l TO 30 


1700 


CALL SOUND(-300. 1 10* (RND»331 . 30-S) 


1060 NEXT N 4**& To* » '- * rtJ * 
1070 CALL COLOR < 12,7, 1> 3ey 


mo 


NEXT S 


1720 


CALL HCHARIXO.YO, 1401 


1090 FDR N-l TO 3 


1730 


FOR TPS-1 TO 300 


1090 CALL 50UNDUOO,300»N,6«N> 


1740 


NEXT TPS 


UOO NEXT N 


1730 


CALL CLEAR 


1110 CALL COLOR! 12, 1. 11 


1760 


CALL COLORS 12,1,1) 


1120 CALL HCHAR<A,B,32> 


1770 


P1*1NT -TEMPS ECOULEi "I Z: : t 


1130 GOTO 210 






1130 PRINT i s fe 






I160 PRINT "PAYSAGE: " - Jf~ 




1-PEU 0£ TAU 


PINIERES. 20-BEAUCOUP." — -<1~- 






1170 PRINT i <T 






HBO PRINT "DIFFICULTEi ^} 




1 -TAUPE PEU 


MOBILE." >V* 






1190 PRINT "lO-TAUPE TRES AGILE."!i s^\ ' 




^° ° * 83%)*&1fa?tf®!8 ' ■ • J) 


I20O INPUT "PAY5AGE t-20i"iP / \ 




1210 IF <P<1>+<P>20)THEN 1200 / \ 






1220 INPUT -OIFFICULTE l-IOi"lZl [ j fc 






1230 IF <ZK1>*(Z1>I0>THEN 1220 /7Vi "^ftJ*. 






1240 Zl-Zl*! (l/r^'J^J 




■*C_-**-— - , - ^JV|JC*Mft 


1230 CALL CLEAR ll/ / /TV* 






1260 A-<RND»13)*1 \ I j h-£. 




O ^sSlffl 1 


1270 B-<RND»7>*1 ^YW^// 






12BO Al-1 VVUT/ 






1290 Bl-B m\\\/ 






i3oo ao-a AsAlr 
1310 bo-b //r^rf 




. .. -»«» ^ S> *•„ ^ 


1320 X-23 /// ^*» 




••« . «•- 


1330 Y-30 -^VfJ«W.A 






1340 XO-X /\Jy7'\ 






1350 YO-Y ' ' * 






1360 CALL GCHAR(X,Y,0> 






1370 CALL GCHAR<A,B, IM1 
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BOWLING 



Ce programme permet a deux joueurs de mesurer leur 
adresse au Bowling, il a la particularity interesante de 
(aire reellement appel a la dexterite des joueurs et non 
plus a leurs reflexes ou au hasard. 
II reprend les regies classiques de ce jeu, a savoir : par- 
tie en 10 manches, 30 points pour un strike, 20 points 
pour un spare et tient la comptabilite des scores. 
L'utilisation de "lutins" propres au Basic etendu du 
TI994/A permet une grande souplesse dans I'affi- 
chage des deplacements de la boule et rend ainsi les 
parties tres realistes. 

Principe dun lancer: 

Le micro compte de - 1 a 32 (boucle 940-960). la 
variable H comptabilise le nombre de tours effectues 
tant que la touche "SPACE" (code ASCII - 32) est 
enfoncee. Si la touche est relachee au moment ou H — 
11 ou 1 2 par exemple. le branchement de la ligne 1010 
conduit au sous-programme 1 930qui fait partir la boule 
legerement sur la gauche de I'ecran. 




A partir de la, le hasard intervient legerement (mais qui 
pourrait se vanter de n'avoir jamais eu la chance aveclui 
sur une veritable piste !)... 

Vous avez 1 chance sur 6 de faire tomber 4 quilles 
(ligne 1950), 2 chances sur 6 d'en faire tomber 5 
(ligne 1 970), 1 chance sur 6 pour 7quilles(ligne1 990) et 
3 chances sur 6 d'abattre 6 quilles (ligne 2010)... 
Le principe est le meme pour chacun des 1 5 sous-pro- 
grammes. Pour voir sa boule partir en ligne droite (s- 
p 21 70), le joueur devra relacher la touche "SPACE" au 
moment ou H est egal a 1 5 ou 1 6, c'est-a-dire au milieu 
du temps de comptage. 



Croyez-moi, ce n'est pas si simple, il faut une bonne 
memoire... au bout des doigts ! 
Deroulement du jeu : 

Le joueur 1 commence la partie, la boule descend dans 
la gouttiere du cote du joueur lanceur. Des que la boule 
s'est arretee, appuyer sur la touche "SPACE" provoque 
le depart de la boule dans une direction determinee par 
la duree de la pression sur cette touche. 

Alain NORMAND. 



•••■■•BOWLING* < 



too 

110 

120 ! 

130 ' •••Alain NorMnd*** ' 

140 * 

ISO I •••jinvitr I9B3«» ' ^^+ 

is tSS^xK 

240 N-350 It GOSUB 2B60 ll SOSUB 2870 !i ! MUSIQUE ,^^^V^ «^^ 

230 CALL SCREEN(4)it DISPLAY AT<2, 12)ERASE ALL: "BOWLING" ^^#^» %-••** 

260 DISPLAY AT (4,1) :"•••••••■•>•■••••■■•••••••»•" ^T\^ » ^»^ 

270 SOSUB 2B60 ll GOSUB 2880 i: GOSUB 2830 n ! — MUSI DUE-- W^^ » 

290 DISPLAY AT(8.4> : "NOHS DES PARTICIPANTS" ^_^^ 

290 DISPLAY AT(10,6)t"<9 LETTRES HAXI)" ^^ 

SOO FOR I-l TO 2 n DISPLAY AT (2*1*1 4, 3) t "JOUEUR" I 1 1 "?" II NEXT I 

310 FOR 1-1 TO 2 tl ACCEPT AT (2*1 + 14, 16) SIZE 19) i fi« [ 1 ) s : NEXT I 

320 GOSUB 2830 it '-HUS10UE- 

330 DISPLAY AT (9. 3-LEN ( A* ( 1 ) ) /2) ERASE ALLlAS(l>|" COMMENCE LA PARTIE" 

340 DISPLAY ATU4.4)t~QUE LE MEILLEUR GAQNE !" 

330 DISPLAY AT (23. 2) s " TAPER ENTER POUR DEMARRER" 

360 ACCEPT AT(23,28)SIZE<l>lXX4 

370 CALL CLEAR 

590 . 

390 ' INITIALISATIONS 

♦00 ! 



410 
*20 

430 

440 

«30 

MO 
470 

•SO 

.:■;■■; 

500 
310 

S30 
530 



DIM P(11),U(2,10> 

FOR 1-2 TO 11 il P(I)-96 u NEXT I 

TQT(l),T0T(2)-0 

RANDOM I ZE 

CALL CHAR(96,"00t83C7E7E3ClS003C7EFFFFFFFF7E3C") 

CALL COLOR (2, 14, I, 13, 16, 16, 14, 13. 13) n CALL SCREEN(B) 

N-2O0 I ■ SOSUB 2B60 I I SOSUB 2B70 1 1 GOSUB 2960 ■ t GOSUB 2800 I 



GOSUB 2830 



• — AFFICHAGE TERRAIN — 

CALL VCMAfl(l,I3, 138,24)1 
CALL HCHAR124, 14, 138, 7»: 
CALL SPRITE(»1, 97,9,249, 



CALL VCMARt 1.21, 138,24 
CALL HCHAR(24, 17, 128) 
29.»2,96,3.4, 111, •3,96,3, 4, 123, 4»4, 96, 3, 4 



CALL VCHARd, 14, 12B, 168) 
33,43,96, 



570 
580 
590 
MM 
■ 1 
620 
630 
MO 
U» 
MO 
670 



I CALL SPRITE(»6,96,3, 1 I, 1 17, •7,96,3, 11. 129, •8,96, 3, I 1, 141) 
I CALL SPRITE(»9, 96, 3, IS, 123, •10,96, 3, 18, 133, •11,96, 3, 23. 129) 
-FOR I-l TO 2 ■* DISPLAY AT ( 1 , 19*1-19+ ( 10-LEN (A»( I ) ) ) /2> SIZE (LEN(A»( I > ) *l > 
DISPLAY AT(2,19»I-181SIZE<9)t" ■ it NEXT I 



' BOUCLE DE JEU 

FOR W-l TO 10 

FOR X-l TO 2 ■■ U(X,M)-0 

FOR S-l TO 300 ll NEXT B 

CALL S0UND(20.SB0.2) i i CALL SOUNO<40,990. 1 

FOR O-l TO lOO ll NEXT G 

FOR J-l TO 2 



CALL S0UND<30, 880,0) 



-OEPLACEMENT OE LA— 



BOULE DANS SA 



GOUTTIERE 



690 ' 

690 IF X-l THEN 790 

70O CALL LDCATE(41,249, 161) 

710 CALL M0TI0N(*l,ia,0> 

720 FOR 3-1 TO 770 it NEXT S 

730 CALL H0TI0N(41,0,0) 

740 CALL LOCATE (•!, 183, 161) 

730 CALL SOUND (20,890,3) 

760 CALL MOTION <• I, 0,-13) 

770 FOR G-I TO 130 It NEXT Q 

780 CALL MOTION(«I, 0,0)ii GOTO 880 

790 CALL LOCATE(»l,249,97) 

SOO CALL MOTION!*!, 18,0) 

810 FOR 0-1 TO 770 ll NEXT 8 

B20 CALL M0TI0N(41,0,0) 

830 CALL LOCATE!*!, 183,97) 

940 CALL SOUNO(20,aeO,3) 

830 CALL M0TI0N(«l t O, IS) 

B60 FOR 8-1 TO ISO tt NEXT O 

870 CALL M0TION(41,O,0) 

880 CALL LOCATE (• I, 183, 1291 

890 CALL SOUND <80, 980, 3> 

9O0 • 

910 ! SAISIE CLAVIER 

920 ' 

930 H-O it CALL KEY <0, K.ST) t t IF ST-0 THEN 930 

940 FOR A— I TO 32 

930 CALL KEY(O.K,ST)ti IF K-32 THEN H-A 

960 NEXT A 

970 CALL SOUNDdOO. 220,0) ll RN-RNO 

9BO • 

990 ' -AIGUILLAGE VERS S.P«- —DEPLACEMENTS BOULE — 

S 

1OO0 • 

1010 ON <H/2)*1 GOSUB 1630,1630.1670,1710.1770.1830,1930,2030, 
0,2360.2630,2680,2710,2710 

1020 ' 

1030 

1040 
1030 
1060 
1070 




-ET CHUTE OUILLE 



2170,2270,2390,249 



1090 
IlOO 
1110 
1120 



' CALCUL SCORE 

FOR 1-2 TO 11 >l UlX,Wl-U<X,W)-(P(I)-43)ti NEXT I 

U(X,W)-(UU.W)ANO U<X.HK>10)-30»(U<*,W)-IO AND J-1)-20*I 

IF U(X,U)<30 THEN 1130 

FOR I-l TO 6 =l DISPLAY AT < I 2, 12) SI ZE (7) DEEP) "STRIKE ' " ll 

G 

CALL MCHAR(12.I4.128.7)ti FOR 0-1 TO 9 tt NEXT G tt NEXT 

. AFFICHAGE SCORE 

I FOR 1-0 TO U<X.W> 

I DISPLAY AT <W+4, 19*X-18)SIZE< 101 (USING "••_ •»pt«"tW,I 

) CALL S0UNO(-lO0,30*I+3OO.3)ll NEXT I 

) CALL SOUND(2QO. 30*1+230, 2) 

> IF U<X,W)-30 THEN 1190 ELSE U ! X. W) --U ( X , W> • < J-2) 

) NEXT J 

) FOR G-t TO IOOO ll NEXT G 



HX.U1-10 AND J-2) 
FOR G-l TO 20 I I 



1200 




1 2 : '"i 


' — RETOUR QUILLES— 


1220 




1230 


FOR 1-2 TO 11 It CALL 


1240 


NEXT X 1 1 NEXT M 


] 250 






1260 


• —FIN DE LA PARTIE— 


'.■270 






12 BO 




1290 




1300 


• — CALCUL TOTAUX-- 


1310 




1320 


FOR X-l TO 2 il FOR M- 


: 530 


TOT ( X ) -TOT ! X > *U ( X . M> 



CALL N0TI0N(»1, -70,-1 1) 

FOR G-l TO 220 II NEXT G 

CALL DELSPRITE(4t)ii CALL S0UND(300. I 10, 0) ! I RETURN 

CALL MOTlON<»l, -70.-10) 

FOR G-l TO 220 n NEXT G 

CALL DELSPRITE(al) i t CALL SOUND (400, 1 10, O) i i RETURN 



TI-99 4/A 



TO 10 
(X.M> 

1340 NEXT W : i NEXT X 
1350 CALL SCREEN(I2)n N-40U 

1360 GOSUB 2860 II GOSUB 2870 It GOSUB 2860 II GOSUB 2880 it GOSUB 2830 it ' MUS 
I DUE 
1370 • 

1380 ! --AFFICHAGE TOTAUX — — ET FELICITATIONS — 
1390 ! 

1400 FOR I-l TO 2 

1410 DISPLAY AT(17,19-I-17)SIZE(8) t "TOTAL l" 
1420 DISPLAY AT ( 19, 19* I-t 7) SI ZE (8) I USING "••• ptt'lTOTII) 
1430 NEXT I 

1440 DISPLAY AT(12, 12)SIZE(7)i " POUR" n DISPLAY AT ( 1 3, 12>SI ZE < 7) i t DISPLAY AT ( 1 
4, 12)SIZE(7) t'REJOUER" 

1430 DISPLAY AT ( 13, 12)SI ZE (7) i i DISPLAY AT ( 16, 12) SI ZE (7) i - TAPER" ll DISPLAY AT ( 
17.12)SIZE(7)ii DISPLAY AT( 1 8, 12)51 ZE < 7> I - ENTER" 
1460 DISPLAY AT ( 19, 12)SI ZE (7) I i DISPLAY AT (20, 12) SI ZE (7) 
1470 H-(T0T(l>OT0T(2>)*((T0T(l)>T0T<2)>+2«<T0T(l)<T0T(2)>) 
14BO FOR I-l TO lOO tt CALL KEY(3,K,ST) 
1490 FOR B-l TO 40 tt NEXT G 

ISOO DISPLAY AT(20. 13)S1 ZE < I > i CHR« <30> i I IF M-0 THEN 1330 
1310 DISPLAY AT<23, 19»M- 16)31 ZE (3) i -BRAVO" ti FOR G-l TO 60 it NEXT O 
1320 DISPLAY AT (20. 13) SI ZE ( 1 ) i t DISPLAY AT <23, 19*M-16)S1ZE <3) tRPTt (CHR* < I 28) ,3) I 
I SOTO 1340 

1330 FOR B-l TO 60 It NEXT G 

1340 DISPLAY AT (20, 13) SI ZE ( 1 ) I t IF K-I3 THEN 1360 
1330 NEXT I tt CALL CLEAR it END 
1360 CALL CLEAR it CALL DELSPRITE (ALL) 
1370 CALL C0LORI2.2, 1) I I GOTO 240 

1380 ! 

1390 ■— S.Pgm« DEPLACEMENT— —BOULE ET AFFICHAGE— OUILLES TOHBEEB 

1600 ! 

1610 ■ 

1620 

1630 

1640 

1630 

1660 

1670 

1680 

1690 

1700 

1710 CALL MOTI0N(*l.-7O,-8l 

1720 FOR G-l TO 223 it NEXT 

1730 P<2)-43 

1740 CALL PATTERN<«2,43) 

1730 Q0SU8 2780 II RETURN 

1760 ! +.♦..+..++*♦+.«+♦..* 

1770 CALL H0TI0N(»l,-70,-7> 

1790 FOR G-l TO 203 n NEXT 8 

1790 IF INT(RN*2)-0 THEN P<6),P<2)-43 ELSE 1910 

1800 CALL PATTERN(»6,43,»2,43) t t GOTO 1830 

1810 P(6),P(2) ,P<3)-43 

1820 CALL PATTERN<»6,43,«2,43,«3,43) 

1830 GOSUB 2790 ■■ RETURN 

1840 ! +.+.. + + .. ++♦.*.»**,.. 

1B30 CALL nOTION(ai,-70,-6) 

I860 FOR G-l TO 203 11 NEXT G 

1870 IF INT(RN»2>-0 THEN P<6) ,P (2) .P<3) -43 ELSE 1890 

I8B0 CALL PATTERN(»6. 43. «2, 43, »3, 43)n GOTO 1910 

1890 P(6) ,P(2) ,P(3),P(4)-43 

1900 CALL PATTERN(»6,43,«2.43.«3,43,«4,43> 

1910 GOSUB 2790 ti RETURN 

1920 ! ♦++♦++...++.....*♦♦♦ 

1930 CALL M0TI0N(»l,-7O, -4) 

1940 FOR G-l TO 143 11 NEXT G 

1930 IF INT(RN*6)-0 THEN P (9) , P (6) . P (2) ,P (31 -43 ELSE 1970 

I960 CALL PATTEAN<«9,43,46,43,«2,43,43,43> ll OOTO 2030 

1970 IF INT(RN»6)-1 OR INT(RN*6)-2 THEN P(9) ,P (6) , P(7) ,P (2) ,P (3) -43 ELBE 1990 

19B0 CALL PATTERN(«9,43,"6.43,"7,43,»2,43,»3,43) l I GOTO 2030 

1990 IF INT(RN*6)-3 THEN P(9) . P(6) , P(7) ,P<2> ,P (3) , P <4> , P (3) -43 ELSE 2010 

2000 CALL PATTERN(49,43,«6,43.«7,43,»2,43,43,43 I M,43,-3,43> I ■ OOTO 2030 

2010 P<9),P(6) ,P(7),P(2) ,P(3),P(4)-43 

2020 CALL PATTERN(»9.43,»6,43.«7,43,»2,43,»3,43,«4,43) 

2030 0OSUB 2790 1 1 RETURN 

2040 ' .++...++++♦*+.♦.+»♦. 

2030 CALL MOTION(«l.-70,-2) 

2060 FOR G-l TO 123 ti NEXT G 

2070 IF lNT(RN*B)-0 THEN P( I 1 ) , P (91 . P!6) ,P (7) , P(2) ,P (3) -43 ELSE 2090 

2090 CALL PATTERN(all,43,*9,43,«6,43,a7 > 43,«2,43,43,43> I I OOTO 2130 

2090 IF INT(RN*B)<4 THEN P ( 1 1 ) , P (91 , P ( 10) ,P(6) ,P (7) ,P (2) ,P(3) -43 ELSE 2110 

2100 CALL PATTERNiail, 43, •9,43, •10,43,46, 43, •7,43. •2,43,43, 43) 11 GOTO 2130 

2110 IF INT(RN*B>-4 THEN P( I 1 ) ,P (91 , P( 10) ,P(6) ,P(7) ,P(8) ,P(2) ,P (3) ,P (4) -43 ELSE 

2130 

2120 CALL PATTERN(»ll,43,»9,43,«lO,43,46,43,«7,43,«8,43,«2,43,43,43,»4,43)l l OOT 

O 2ISO 

2130 P(ll),P(9),P(lO),P!6),P'7l,P(2),P(3),P(4)-43 

2140 CALL PATTERN<*ll,43,"9,43.»I0,43,«6.43,»7.43,«2.43,»3.43,»4,43l 

2130 GOSUB 2790 ■■ RETURN 

2160 ' ..+,.++.♦+++♦.+..♦+. 

2170 CALL MOTION^!, -70, 0> 

21B0 FOR 0-1 TO 143 n NEXT 

2190 IF INTIRN-101-9 THEN P ( 11 ) . P 19) ,P < 10) .P ( 7) . P (6) . P(B) ,P(3) ,P (4) -43 ELSE 2210 

2200 CALL PATTF.RNl«11.45,»9,43,»10.43.«7,43,«6,43,»8,43,»3,43,«4,43>ll GOTO 2230 

2210 IF 1NT(RN«10)>S TH1IN >'<! 1 ).'<'?), PdO> ,P17) .P(6) .P(0) ,P(4) ,P<3> ,P(3)-43 ELSE 

2230 
2220 CALL PATTERN (( 
22S0 

2230 P(ll I .P(9) ,P<IO) ,P(7l ,P(6> ,P19) ,P(3) ,P(2) , P<4 ) ,P (3) -43 

2240 CALL PATTERN(»1 1 , 43. H9, 43, • 10. 43. »7, 43, »6. 43. «B, 43. «3. 43. »2. 43, «4. 43. »3, 431 
7230 GOSUB 2/90 it RETURN 

Sulio page 12 
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LECTURE RAPIDE 



Elargissez votre champs visuel et lisez la totalite des 
ceuvres de Proust en moins de dix minutes ! 

Marc Raynal 



odIm FtlUVI) 

3 roR i-i to sa 
* input r« ( -- 

5 NEXT " 



38 C8?N?"&T I3,i«i "BflPIDC";HT 

tO NtST I 

BO PRINT AT 13,10;"RnPII)C- BT 
I*, IS, ■••.»•• 

S3 LET Te-PEEK 16*30 *sse*PCEK 
37 

m ooaue BtM 
is pause aoo 

W SrInT BT 10, «; "BST-Ce yarns 

premiere sconce?' ■■ itbpcz o 

•oui ou n-nohi - 
ao let i«-inkcv« 

90 IF I»<>"0" AND I»<>"N" THEN 
GOTO PB 
Ida IF I4-"N" THEN GOTO BOO 



1 v»« 



LE OUT DC CCS EXERC1 
'CLRRGIR UOTRC CHOMP 

effet.il est P 



DE VISION , , 
ROUUE ©UE L" "ON" ."LIT O'RUTBHT 
* U 5 "I 7 ^ OWE . L- oetl BECONNRXT 

LC HflXIMUM". 'Of SYMOOLeS DANS u 
N DELAI LC","PLUJ COURT POSSIBLE 
- ,, , "POUR CELR.IL UOUS SERB PRO 
POSE", "DES 5ERIE3 D" "EXERC ICES P 

bo-" ."OREssirs. ■ , , , ,-uous Ne pou 

RREZ PASSER R LB " . "DIFFICULTE S 
UPCRIEURE OUE SI","UOU5 RERLISEZ 
'■ "MOINS EQAL RU 3C 
BPPUYEZ SUB C PO 



THEN I 



13 



ORE IMPOSE." 

UR CONTINUER 

tse ir inke 1 

135 CLS 

1*3 PRINT "L'-'-ORDINBTEUR COMMEN 
CERB PBP BF-" . 'FICHER 3 LETTRES 
^ENDftNT UN" , "CERTAIN TEHP3,ET CE 
CI 29 FOXS","DE SUITE. ..." .,"31 
VOTRE SCORE EST SBTISFBISANT" , "R 
LOR3 LE TEMPS CV'RFFICHRG-E" , "SEP 

ON VOUS RECOH-" ,"MFN 

ORSOUE LE DELRI D"'R 
" "INIMUM ON PP 



~- - n : 



^iSn"^ ■ SERB RU ... 
^SERR B" . "» LETTRES EN 
Z M£M£", "PflOCESSU37"7V 
" LETTRES. 



SdU' 

US LIREZ 6 LET- 

' " TEMPS" 



ORSOUE 



ise ir in 



169 CLS 



16 K 



170 PRINT "CC STYLE D-'EXRCICCS 
ETRNT FRTI-", "QHNT TOUT CELH SC 
RB B FBIRE","PROGRE3SIUEMENT EN 
PLUSIEUR3" , "ETRPeS.CMROUe SEBNCE 

OURERR" ''ENVIRON IB MINUTES."., 
."A LB FIN DL ICE L"'"0 

B-", "OINRTEUR UOUS DEHRMDERfl D"" 
EN.''."REOISTRER U03 RE6ULTOTS fir 
IH","OU""IL 3RCMC OU UOUS EN CTC 
' '"I LA SERNCC 3UIVHNTE.' 



ioe CLS 

aea print rt o,o;"vuel est uotr 

E PRENOM?" 

aia print rt se.o, "TRPCZ uotre 

SEPONOE PUIS BPPUYEZLR TOUCHE NE 

aSit J>*put t-% 

aw p*»int rt le.e.p* 

8*0 PRINT RT ia,B;"CUEL EST UOT 
RE NOM?" 
2 SO INPUT O* 

oef print bt i«.a;oa 
aos oosuo seee 
27a pbuse aaa 
aaa cls 

soo PRINT P«; " " ; OB; BT 1,8; "LI 

sez rttentiucment 6e oui" . -'Suit 
.. •/.6' N r.:. e LETTRc| uont BPPBRRrrne 
.^CELR 3E produirr ao rois"T''fiPR 
£5 £D f !S UE ^PflRrrioN uous-.-'deur 

EZ RENTREP. UOTRE REPON5E" , " ( " ■ N J 
^tFTISE? SUIUIE5 DE Lfl-^-TOUCI 



NEULINE, . .,,-- 

5 U moins",-et6e de 

Z RTTCNTIUEMENT LE 
"ECRRN. " , , , , "fiPPLT 
CONTINUER." 
3B0 IF INKEY»o"C" 

400 CLS 

*io for 1*1 to se 

*2B PRINT "COUP NO 
" "RINT RT IB, 13; 



OTRE SCORE OOIT 

■; s», , , .-rixe 

MILIEU", "DE L 
EZ SUB C POUR 



LET TE=PEI 



L* (I) =F» (INT 



T IRNDtSO) *1J *F» (INT (RND 
4S5 LET JU = INT I50UJ 
470 CLS 

*ae PRINT BT 10,13,L*(I> 



RND*26] +1 
I INT (RND 

+1) *P»(IN 




BIO PRINT "DONNEZ VOTRE REP0N5E 

;*.-" *";N;" LETTRES PUIS LR TOUCME 

saa input Etc it 

=3© PRINT RT 3,0;E»(I)( TO N» . , 
.."ETES UOUS D-'-BCCORD?", , , "TBPE 
Z O(O-OUI) OU N(N»NONJ" 

S4B LET I*-INKEYS 

33B IT I*<>"0" RND Ilo"N" THEN 

GOTO 5<B 

'i5 5 Gl_5 



see next i 



to n> ,e»(D < 



620 PRINT Ltd) 

N) 

eaa if l» di i to nxjCiiix to 

N( THEN PRINT RT 1,25; "FRUX" 

625 NEXT I 

63B PRINT RT ai ,B; "BPPUVEZ SUB 
C POUR CONTINUER." 
_5*B IF INKEYtl >"C" THEN GOTO 6* 

_ (S»< TO a) ) THEN 
GOTO 78 B 

57B PRIK 
REMPLIR ET 

RE EST- '■ ; SC; ' /*u. ... vun r-i m^ 
EZ PR3 REBLISE LE "."CONTRBT.ON 
VH RECOMMENCER . " 

_671 PRINT RT 2B.B; "APPUYez 3UR 
C POUR COf/TINUER, '• 
S72 IF INKEY»<>"C" THEN GOTO 67 



aoTo aeo 



5, «; "LE CONTRBT B 
': ";5», , . , "VOTRE SCO 



701 PRINT BT 3B,a 
C POUR CONTINUER." 
7B2 IF INKEY*()"C 

a 

703 LET SC=0 

7ie ir — 

?ao ii 

310B 

731 IF Jal/Se RND N=5 THEN LET 

7*1 ir J*1^5B AND N=+ THEN LET 



Le programme de lecture rapid* 
propose est la version o ' 
do RA/NA ■ ■ ■ 

•5 dela 
premiere t/tWstlfoA -Jc i? lancet 
par GOT0 10. attn de ne pas rem- 
plir avec les tcitres de Va'phabet 
le tableau du debut 
Vous Irouvere/ certa'nement un 
mo/en pour remedier a ce pent 
■ 

La RedKtion 



IF J»l/S» M*D N«3 TMCN LET 



-.• B i 

N=* 

758 IF J.l/SB THEN GOTO Sl» 

761 IF J-l/35 TMEN GOSU6 **»a 

771 IF J-l/lO THE" GOSUO *3»e 

?ai if j.i/i then oosuo *aaa 

701 IF J-l/2 T:; 

581 IF U-l THEN GOSUD *009 

"3BB goto aoe 

910 LET J»» 

920 LET T*-"l 3ECOMDE" 

930 OOTO S88 

2000 LET N-3 

2010 LET Tt="UNE 3ECONDE" 

2O20 LET S»»'-2O/20" 

2O30 LET 3C>0 

IM LB (30,6) 

50?fi OIM EtOD.e) 

2OS0 LET O-l 

2070 LET TE.O 

20B0 LET TF»0 

2090 RETURN 



HUUK HUJUUHU IWi , , , ntHVl , 

«,BT 10,0;"RPPELLE TON PROFESSE 
POUR" ."ENREOISTRER TE3 RESULT 
iTS", ,,,," (TOUCHES PLBY ET REC D 
J MRONE-" ."TOPMONE fl ENFONCER PU 
ISTRPEZ- 1 ,"LR LETTRE E POUR ENRE 

TMEN GOTO 30 



3iee cls 



INT BT 15.0. "RPPBENTISSBG 
, - ,"BU REUOIR ";P 



OE 3ECONDE" 



LET J-l/iO 



'1^10 DE 5ECONDE" 



30 DE SECONOE" 



*aio LET T* 

*230 RETURN 

*3B8 LET J«l/iii 

<3ie LET T«."1/2S DC SECONDC" 

*3S0 RETURN 

*40B LET U-l^^B 

*410 LET T»* 

**50 RETURN 

SOaa LET TE>65279-TE 



7B99 STOP 

aeee save -lecture rrpidB" 
0010 ooto la 
saae 3T0P 



\|r suite de la page 11 

2270 CALL MOTION(»l,-70,2) 

2290 FDR 5-1 TO ] 25 :: NEXT B 

2290 IF IMT(RN«9)-0 THEN P ( II ) , PI 10) , P (7! , P(8) , P(4) , P (5) -43 ELSE 2310 

230O CALL PBTTERN(»11.43.»10,43.«7,*3.»B,43,-'»,43,a3,*3) n GOTO 21SO 

2310 IF INT(RN«8)':4 THEN P( 1 1 > , P( 10) , P (91 , P (7) , P <B) , P (4) ,P (3> -43 ELSE 2330 

2320 CALL PATTERN (•! I , 43, »10, 43, 49,43. »7,43, 06, 43, »4, 43, *3, 43) ! : GOTO 2IS0 

2330 IF INT<RN*9>-4 TMEN P( 1 1 ) , P ( 10) . P<9) , P (8> , P <7) . P (6) ,P (3) ,P(4) , P (3) -43 ELSE 

2330 

2340 CALL PATT£RN(41 1 . 43, ■ ! 0, 43, »9, 43, »B, 43, »7, 43, »6,43, wS, 43, K4, 43, «3,43) I I GOT 

21SO 

2350 PHI 1 ,P(I0) .P<9) ,P(7) ,P<9) ,P(3),P<4),P(S)-43 

2360 CALL PATTERN(»1 1 . 43, 410, 43, »9, 43, 47. 43, 48, 43, "3, 43, *4, 43, "3, 43) t J GOTO 2150 

2370 • .**-.****.***...*+** 

2380 CALL H0TI0N(»I , -70, 4) 

2390 FOR G-I TO 145 ■■ NEXT G 

240O IF INT(RN»fcl-0 THEN P( lO) , P (B) , P (3) ,P(4) -43 ELSE 2420 

2410 CALL PATTERN(410.43,»B,43,#3. 43,44, 43) :: GOTO 2030 

2420 IF INT(RN«b)-l OR INT(RN*6)-2 THEN P( lO) ,P (9) ,P (7) ,P(5) , P (4) -43 ELSE 2440 

2430 CALL PATTERN<410, 43, 48, 43, »7, 43. 45. 43, 44, 43) : i GOTO 2030 

2440 IF INT(RN»6>-3 THEN P( lO) , P (8) , P(7) ,P(5) ,P (4) ,P (3) ,P (2) -43 ELSE 24&0 

2*50 CALL PATTERN(410,43.»8,43,47,43 I 45.43,«4,43,»3,43,»2,43) :t GOTO 2030 

2460 P(10) ,P18),P(7) ,P(3) ,P(4),P(3)-43 

2470 CALL PATTERN(410.43. 48, 43, "7, 43, 45, 43, 44, 43, 43, 43> i : GOTO 2030 

249C CALL HOT ION (41 , -70, 6) 

2300 FOP G-l TO 205 n NEXT G 

2310 IF INT(RN»2)-0 THEN P(B) , P(31 , P (4 > -43 ELSE 2530 

2320 CALL PATTERN(48,43,45.43, 44,43) : : GOTO 1910 

2530 P(9) ,P(3) ,P(4> ,p<3)-43 

2540 CALL PATTEPN<49, 43, 43, 43. 44, 43,43, 43) 1 1 GOTO 1910 

2550 • »**-»*.*.*♦-*.+.*♦*+ 

2560 CALL MOT I0N(41 . -70,71 

2370 FOR G-l TO 205 :: NEXT G 

23BO IF INT(RN*2>-0 THEN P(8),P(5)-43 ELSE 2600 

2390 CALL PATT€RN(«B,43,«5,43)j j GOTO 1830 

26O0 P<9),P(3) ,P(4)-43 

2610 CALL PATTERN(49, 43, 43, 43, 44,43)1 I OOTO 1830 

2620 ' -*+«.♦-.*+♦+♦+++++.* 

2630 CALL M0TIONI41 , -70, B) BW 

2640 FOP G-I TO 225 ■ i NEXT B - Mk M^L 

26SO P(3)-43 I IVI^ 

2660 CALL PATTERN(43,43) !i GOTO 1730 _ ^^k I Wf P 

2670 ■ -......„....-.,.... AU| I W 

2680 CALL HOT ION <4I , -70, 10> — * ^Jl^^ * 

2690 GOTO 1690 -^\ » ^TM ^^ 

2710 CALL HOTI0N(41,-7O,lIl » » 

2720 GOTO 1640 * 

2730 ■ 

2740 ' 

2730 ! 

2760 • BRUITAGES 

2770 ' 

2790 CALL DELSPPITE'Bl) : ; CALL SOUND ( 100, -7, 0) 1 1 CALL S0UND< 100, -3,0) i I RETURN 
2790 CALL DELSPRITE 141 ) : t FOP 1-1 TO 3 I! CALL SOUNDf lOO, -7, 0) i ! CALL SOUND<60,- 
5,0) i: NEXT I ;: PETUPN 

2800 ' 

2810 ! MUSIOUE 

2820 ' 

2830 FOR I-I TO 3 II CALL SOUND (N/3, 294, 0) I I NEXT I t: CALL S0UND(2*N, 247, 0) 

2940 CALL SOUND (N, 30000, 30) i j CALL SOUND (N/3, 185, Oi : : CALL SOUND (N/3, 183,0) i I CA 

LL S0UND(N/3, 165,0) 

2830 CALL S0UND(N+(N/2) , 147,0) ■ > CALL SOUND <N* (N/2) , 1 23, 0) i 1 CALL S0UND(2»N, 185, 

0) I > RETURN 

2860 CALL SOUND (N, 30000, 30) I J FOR 1-1 TO 3 tl CALL 90UND<N/3, 183,0) I I NEXT I u 

CALL SOUN0(2«N, 147,0) J i RETURN 

2870 CALL SOUND (N, 30000, 30) it FOR 1-1 TO 3 11 CALL SOUND <N/3, 163,0) I 1 NEXT I it 

CALL SQUND(2»N, 139,0) i : RETURN 

2880 CALL SOUND (N, 30000, 30) i i FOR I-l TO 3 11 CALL SOUND (N/3. 196,0) i I NEXT I it 

CALL SOUN0(2»N, 185,0) 1 I RETURN _ 



V^ Suite de la page 1 

Bernard LEPREUX esl invisible, 
allez done chercher 13 sortie 
dans ces conditions 1 (GOUPIL 
II). 

Apres etre passe clans le CADRE 
DIABOLIOUE de J.-P. LALEVEE 
(COMMODORE 64). vous voila 
dans le monde du lantastique. 
les dragons y pulullent dans 
RND et DRAGONS pour PC 1 251 
de Gerard NOEL, et les magi- 



ciens y sevissent; HANAPS de 
Jean-Pau! LAURENT pour 
ORIC 1. ORIC 1 et numerologie 
pour cloturer le para-normal 
(Frederic RACAUT). Dix petits 
humams, e'est la ration quoti- 
dienne du serpent de Didier 
CAPDEVIELLE sur sort VIC 20. 
La taupe de J.-M. DECLERCO ai- 
merait bten devaster le champ 
d'ACHlLLE, mais celui-ci n'est 
pas tout a fait d'accord (TI/99). 
Out! Que d'aventures. il est 



temps de prendre un peu de re- 

pos; un tour a la fete toraine 
avec CASSE-PIPES (HP 41) do 
Vincent HERLICO et ROWLING 
de Alain NORMAND (TI/99); et 
enfin un bon bouquin avant d'al- 
lerau lit, mals pas sans s'etreen- 
traine a la lecture rapide avec un 
ZX 81 et le programme de Marc 
RAYNAL. 

C'est vrai quoi. si on achete un 
micro-ordinateur. il taut bien 
ramortir! 





ERRATA ; 

-BULLDOZER" sur TI-99/4A 

parudansleN°7: 

Dans le listing, notre imprimante 

a commis quelques erreurs 

d'impressions de la ligne 260 a 

470: 



260 


PR) 


770 


f-ff I 


','Hn 


PRI 


790 


PR I 


-on 


PR I 


310 


PRI 


T7Cj 


PRI 


330 


PRI 


340 


PRI 


mo 


PRI 


3/tO 


PRI 


S70 


PRI 


mo 


PRI 


s*o 


PR I 


400 


PRI 


410 


PR 7 


470 


PRI 


430 


pp i 


440 


pi- i 




PRI 


4A0 


PHI 


470 


PRI 



17B0 REM »••••••••••••»••• RAPPEL DES OPTIONS PRECEDENTES 

1790 PRINT "VOS SELECTIONS ETAIENTt "n 

1800 PRINT PI" POUR LE PAY9AGE. " 

1910 PRINT Zl-li" POUR LA DIFF ICULTE. " ! : i i 

1920 PRINT •'APPUYE* SUR UNE TOUCHE POUR CONTINUER." 

1930 CALL KEY (3, ►:, CO) 

1940 IF CO-O THEN 1930 

1950 CALL HCHAR<22,1,32,6*) 

I960 GOTO 140 

1B70 REM ••••••••••••••••• MODE D'EMPLOl •••••••••••••• 

1BB0 CALL CLEAR 

1890 PRINT "••••••••••••••••••••••••••••••"•ACHILLE ET LA TAUPE • •••••••••«•••••* 

1900 PRINT " JEU DE POURSUITE" 1 1 1 

1910 FOR I-l TO 800 

1920 NEXT I 

1930 PRINT " VOULEI-WOUS LE MODE D'EMPLOI^OUI /N0N1 " 

1940 CALL KEY (3, KEY, CODE) 

1930 IF CODE-0 THEN 1940 

I960 IF KEY079 THEN 120 

1970 CALL CLEAR 

1980 PRINT "ACHILLE POURSUIT DESESPERE- MENT UNE PETITE TAUPE OUI RAVAGE SON J 

AROIN.-'ii 

1990 PRINT "VOUS DEVEZ L'AIDER'I" 

2000 PRINT II 

2010 PRINT "L'APPROCHE SE FAIT It A LA VUE 21 A L'ORE 

ILL£"iiintl > 

2020 PRINT "APPUYEZ SUR UNE TOUCHE!" 

2030 CALL KEY(3, KEY, CODE) 

2040 IF CODE-0 THEN 203O 

2050 CALL CLEAR 

2060 PRINT "1)A LA VUE- LA COULE 

UR DU JARDINIER." 

2070 PRINT " CHANGE SUIVANT LA DIS- TANCE OUI LE SEPARE DE LA TAUPE 

2090 PRINT " ROUGEi TRES ELOIGNE BLEU iPLUB PROCHE NOIR 

tTRES PROCHE"! il 

2090 PRINT " LA TAUPE APPARA1T AUS9I DE TEMPS EN TEMPS ET LAIB8 

E UNE NOUVELLE TAUP1NIERE. " 

2100 PRINT I ! I 

2110 PRINT "APPUYEZ SUR UNE TOUCME'" 

2120 CALL KEY(3. KEY, CODE) 

2130 IF CODE-0 THEN 2120 

2140 CALL CLEAR 

2130 PRINT "2)A L'OREILLEi DflN9 LA 

PHASE D' APPRO-" 
2160 PRINT " CHE nolri LA TAUPE SG FAIT ENTENDRE. "i i i 

2170 PRINT •■ LAI9SEZ-V0UB GUIDER PAR LE BRUIT!* 1 
2180 PRINT il l ll 

2190 PRINT "APPUYEZ SUR UNE TOUCHE"" 
2200 CALL KEY(3. KEY, CODE) 

2210 IF CODE-0 THEN 2200 _ 

2220 RETURN ■ 



CCP 



Ce programme permet de gerer au mois le mois au 
compte CCP et de stocker les operations f aites sur une 
cassette 



Thierry DOMBUDES. 



- Charger 10 programme par CLOAD "CCP" 

- Interet du programme 

permet de oerer un compte postal ou bancaire, c'es! 

- mise a jour du mois dans lequel on se trouve (credit ou debit) ; 

- ouverture dun nouveau mois , 

- lecture des operations dun mois. 

- stockage sous forme de fichiers des operations laites tous les 
mois (1 fichier - 1 mois) 

Mode d'emploi 

- Connecter le magneto K7 a lensemble PC 1 500-CE 1 50. 
I - Pour la premiere utilisation 

- prendre une cassette vierge, et la placer en debut de bande ; 

- mettre le compteur du magneto a 000 ; 

- avancer la bande d'une valeur de une minute environ en position 



de lecture (cette place contlendra le fichier sorto de table des 
le ce que contlendra 10 ri 
-taper HUN. 

- a la question 'lecture du llchlot'rBponiJreNcar il ny a encore rien 
dans le lichlor . 

hole menu, pour loparcounr appuyer sur les f leches 'ou 
i pour montor ou de 

- so posltlonner sur loperation "CRFJDEB sur dernier fich'el appu- 
ycr sur la louche 'SPACE" pour valider. 

• comrne II s'agrt du premier fichier a creer. repondre "O' a la ques- 
tion "fichier ddja lu", de meme repondre "O" a la question "nouveau 
mots"; 

- donner la valeur de vo(re ancien avoir, a la question correspon- 
dante; 

- entrer le nom (le voire si vous voulez vous en souvenir), de toute 
(aeon le (ichier sera 10 pour vous le rappeler si le nom n'o que 3 let- 
Ires. rentrer S signes pour avoir 8 letlres (des espoces. par 
exemple ) 

- entrer le mois dans lequel on se trouve ; 

- entrer le reperage sur la cassette (3 chi(fres) . 

- entrer le libelie de I operation. 

- entrer le iour de ['operation ; 

- entrer la valeur de 1'operation (+ pour un credit ; - pour un debit) ; 

- si il n'y a pas d'autre operation, repondre "N" ; 

- preparer la cassette (onregislrement + remote on) ; 

- repondre "O" ; 

- lo cassette stocke le fichier ; 

- le menu s'afliche a nouveau ; 

- valider "mise a jour dchier" ; 

- rOpondre "O" "fichier deja lu"; 

- positionner la cassette 000 (la ou on a reserve remplacement 



■■■mole on -t- cassone en enregistrement . 

- appuyer sur "O". 

- ontror le nom precedent . 

- entrer le n: mment. 

- entrer le W de cassette entre avant . 

- le fichier se stocke et voila' 
Remarques 

- on ne peut pas slocker plus de 1 2 norrs sur le fichier. le nombrede 
noms etant proportionnel au nombre de mors, le ' 

valabfe pour un an . 

- pour gerer le compte de plusieurs personnes. if est preferable 
d utiliser autant de cassettes que de personnes 

- bien lirele fichier pour faire un enregtstrement (attention dene pas 
ecraser un ancien I 

L initialisation de la cassette est faite 

II - pour louvertured'un nouveau mois (refaire toutes les operations 
precedentes 

- enregistrement du nouveau ficr ■ 

- puis mettre jour le fichier (il taut ie life au moms une tots) . 

III - pour une ou des operations sur le mois. modifier umquement te 
fichier mois par "CRE/DEB SUR DERNIER FICHIER". 

IV - pour lire un fichier mois "LECTURE * 

- pour toutes les operations II faut toujours bien se positionner en 
reperant bien les numeros lus sur lo fichier (done bien gerer le 
dchier); 

- pour le menu valider avec la louche "SPACE" . 

- pour les reponses (O/N), appuyer sur "O" ou "N". puis sur "ENTER" 



I r GOTO 5 
2:PR]NT »"«*»«« 

**********" iUA 

• (*) 
3: RETURN 
5:REt1 ********* 

mmnnmt 

**** 

6:REt1 t 



7: REM « <c» T. 
OOnBUOES 19 
93 * 
8:REn * 



9:REf1 ********* 
************** 
**** 

18:"CCP-CLS : 

29:DIt1 UA»(39),P0 
*(13>, UA(39>,U 
G»(38>:UOIT 8 

25: IF <CHR» PEEK 
1S882THR* 
PEEK tB883-> 
CHR» PEEK t888 
4><>"nGP"G0T0 
65888 

38:GOSUB -INK" 

31:UOIT 8:PRINT " 
List ins des f i 
ch i er«* 

32: IF INKEYH -"0" 
GOTO "LISTING" 

33: IF INKEV» -"'• 
GOTO 3] 

35:PRUSE "«-t-t-* 
-t C C P *-*-* 
-*-*" 

88: UAIT 8: PRINT " 
*********nENU* 
*«******": 01 = 
88: GOTO 138 

98:PR1NT "NISE 
JOUR FICHIER" 
:OI-98:G0TO 13 
8 
188:PRINT "LECTURE 
UN FICHIER" 
: 01 = 188: GOTO 1 
38 
118: PRINT "CRE'DES 
*ur dernier f 
ich. ' : D I = 1 1 8 : 
GOTO 138 



128: PRINT " fin d 
ut i I isat ion": 

01.128 
138: IF INKEYe ■"" 

GOTO 01 
148: IF BSC 1NKEY* 

=]8AN0 0JO129 

GOTO (01*19> 
158: IF BSC 1NKEY* 

=11AN0 Dl>98 

GOTO (01-19) 
155: IF INKEY» »" " 

GOTO 128 
168:G0T0 01 
178:G0T0 (DJ*188> 
9888: PAUSE "NEU F 
ICHIER":UA1T 



INPUT "F1CH1 
ER DEJA LU<0 
•N):";fl* 
IF f1«-"0" 
GOTO 9885 
GOSUB ' INI T" 
PRINT "ETES 
UOUS BIEN PO 
SITIONNE?" 
IF INKEY* <> 
"0-SOTO 9885 
INPUT "NO 
n (8letlres) 
";N* 

9828: INPUT " fl 
1 S :(9I/12> 
";N»:r1=UAL fl 
»:tl=INT (PBS 
fl) 

9838:TY«INT (TIME 

9848 
9859 



9883 
9885 



9886 
9818 



-•ie 



n> 



9868 
9862 



9865 
9828 



IF flOTYGOTO 

9928 

INPUT "No DE 

BUT CASSETTE 

?: (888/999)" 

I NO* 

FOR I=1T0 12 

IF P0«(1>="" 

GOTO 9878 

NEXT I 

P0*(I)=N»-»"/ 

"-.rl*-*" : "■♦NO 

• 

:PR1NT ""F1CH 
IER"1P0»<«) 

:GOT0 "L1STIN 
G" 

: "LECTURE" 

:f1N=e;0R=8: 



18816 
18828 



18858 
18855 



18898 
18188 



18119 
18115 



18128 
19121 



18122 
18125 



18138 
18148 



18)58 
18151 



PAUSE "*** L 
E C T U R E 
*»*" 
INPUT "F1CHI 
ER DEJO LU(0 
/N):";f1* 
IF t1*="0" 
GOTO 19138 
INPUT "NO 
n (Slellres) 
:"iN» 

: INPUT "NO 
I S (81/12): 
';f1* 

: INPUT " No C 
ASSETTE(998/ 
999)"; NO* 

*" : "+N0* 

IF NN^IGOTO 

18888 

UAIT 9:PR1NT 

"CASSETTE (P 

LAY)?" 

IF INKEY» (> 

"O'GOTO 1887 

8 

POKE S48CF, 8 

F9, S91:A0=S4 

902 

FOR K-8.71F9 

TO *71FF 

AD=A0+ 1 : POKE 

RO, PEEK K 

NEXT K 

IF NN=1 

RETURN 

GOSUB 2 

FOR KL=9T0 3 

8:UA(KL)=UAL 

UO» (KL): NEXT 

KL 

GOSUB 2 

IF 0R=I 

RETURN 

GRAPH :CSIZE 

l: COLOR 3 

LPR1NT "**** 

***** ": 

LPRINT Z«: 

LPR1NT " *** 

******" 

TEXT :GR0PH 

:S0RGN : 

CS12E I 

GLCURSOR (2, 

-I9):LPRINT 

"ARTICLES 



19152 
19155 
19168 
18161 
18178 

18171 

18175 
18188 



CRE01 
T DEBIT" 
TFK-IB 
COLOR 2 
FOR U=8T0 29 
TR=Tft-15 
IF UA*(U)="" 
GOTO 18218 
IF U=8G0T0 1 
9188 
COLOR 8 
CSI2E 1: 
GLCURSOR (2, 
TA):LPR1NT U 
A»(U> 

IF UA(U)>8 
6LCURS0R (18 
5, T()>: LPRINT 
UA(U):G0T0 1 
8198 

GLCURSOR (16 
8, TO): LPRINT 
ABS (UA(U>) 
NEXT U 

GLCURSOR (18 
, TA): COLOR 2 
: LPRINT UA*( 
38): GLCURSOR 
(185, TA>: 
LPRINT UA(38 



18228: TB=- 13: COLOR 

1 
18238: FOR H-1T0 U» 

18248: 



11818 
11939 



18199 
18218 



18259 
18268 
18265 

18279 

18288 

18285 

18298 

18389 
19588 



1 

LINE (9, TB>- 

(215, TB) 

rs=TB-l5 

NEXT H 

LINE (9, TB>- 

(215, TB) 

LINE (9,-13) 

-(9, TB) 

LINE (182, -1 

3>-(192, TB) 

LINE (158, -1 

3>-(IS8, T8) 

LINE (215,-1 

3)-(215, TB) 

TEXT 

GOTO 88 
:"CRE/DEB":DR 

= 1 
: INPUT "FICH1 

ER DEJA LU(0 

/N>:"|t1» 
: IF t1»="0" 

GOTO 11838 



GOSUB 18828 
! INPUT "NOUUE 
AU 1101S(0/N> 

: " ; n* 

: IF n»="0"LET 
UA»(38)="N0U 
UEL AU01R": 
INPUT "ANCIE 
N AU01R?:"iU 
A(38> 

I IF n»="0"LET 
UB(8)-=UA(38) 
:UA»(8)="ANC 
IEN AU01R" 
IF f1»="0"LET 
t1N=l: GOSUB 1 
8928 

FOR H=1T0 29 
IF UA«(H>="" 
GOTO 11871 

:NEXT H 
LET H=H-1 
FOR TG=1T0 2 
9 

:H=H+I 
INPUT "ART1C 
LE((8 lettre 
s ) : " ; UU» 
INPUT ■DATt( 
J0UR:81o31): 
"IUJ» 

UA*(H)="le " 
»UJ*+" / "*U 
U* 

INPUT "110NTA 
NT (encode 
b-):";UA(H) 
UA(38)-UA(38 
)*UA(H) 
INPUT "UN AU 
TRE ARTICLE( 
0/N): -jne 
IF n»="N" 

GOTO 11128 
NEXT TG 
UA1T 288: 
PRINT "REPLA 
CE2 LA CASSE 
TTE" 

NA1T 288: 
PRINT "AU OE 
BUT DU F1CHI 
ER" 

WAIT 8:PRINT 
"CASSETTE EN 
REGIS. (O'N)? 



11158: IF 1NKEY» <> 



11858 
1 1 868 

11878 
11871 

11872 



11188 

11118 

11115 
11116 



11118 
11128 



1116 
1118 



11288 
11218 



11228 
11238 
12888 



12838 
48888 
48881 



"0-SOTO 1115 



POKE S4BCF, t 

F8, t97 

FOR HJ=8T0 3 

8:UG»(HJ)=UA 

• (HJKNEXT H 

J 

FOR HJ=8T0 3 

8:UA»(HJ)= 

STR* UA(HJ): 

NEXT HJ 

GOSUB 2 

FOR HJ=8T0 3 

8:UA»(HJ)=UG 

»(HJ):NEXT H 

J 

: GOSUB 2 

:G0T0 88 
UA1T 188: FOR 
I=38T0 58: 
BEEP 2, 1,28: 
NEXT I 

PRINT "REtlBO 
BINE2 LA CAS 
SETTE":BEEP 
3, 18,38 
PRINT " HER 
CI, ..AU REUO 
1R.. . 

CALL 4CD71 
"1NIT" 

INPUT "LECTU 
RE DU FICHIE 
RC0/N):";t» 




■^ O 



48882 


IF f1»="N" 
GOTO 35 


48868 


48885 


PAUSE "CHARG 

EflENT FICHIE 

R" 

PRINT "REtl. : 


48878 


48819 






ON? CASSE. LE 






C?Q 888" 




49828 


IF INKEYe =" 
O'GOTO 48838 


65888 


48825 


GOTO 48818 




48838 


INPUT e-'FJCH 

IER";P0»(*> 




48835 


RETURN 




48848 


"LISTING": 
TEXT :CSIZE 
1: COLOR 8: 






LPRINT "*»*» 


6582B 




«»» F 1 C H 






I E R ****** 





: COLOR I: FOR 
U=IT0 13 



IF P0*(U)="" 
GOTO 48188 
TEXT :CS12E 
1: LPRINT P0» 
<U> 

NEXT U 
LF 5: TEXT : 
GOTO 35 
NA1T 8:PR]NT 
"L IflPRIflANT 
E N EST PAS 
LA": BEEP 5, 1 
8, 188 

PRINT "EXT1N 
CT10N AUTONA 
T10UE":BEEP 
2,64, 189 
PRINT "CONNE 
CTE2 LA, PUIS 

REFAIRE": 
BEEP 1,2, 158 
CALL ICD71 



RNDET DRAGON 



Dragons, princesse, donjons et chateau fort hante : ne 
perdez pas de vue I'ecran de votre PC 1 251 , il peu t deve 
nirdangereux. 



Gerard NOEL. 




?G 



\& 



18: CLEAR : WMDO" 

I9:RSn 

28:Dlr! M»(6>«7,B«(4).5. 

T I(3)»18.B«(J)«12.I!» 

(8)«24 
29: REIT 
58:0«(8)-'"» RMD "II 

RRGON ••": GOSUB 288 
3;:PA'JSE 'VITESSE D.OFF 

ICAGE- 
32IINPUT '11V 2iN 3 

:L >'iu: IF U<I OR 

U>3 THEN 31 
33:U-8«<»»2) 
39: REM 
48:F0R I»l TO 6: READ ft 



»(I>: NEXT I 
411UAIT 4U: PRINT 'TU E 
NTRES JANS ...': 
PRINT •... LE CHATEA 
U.'S PRINT "IL Y A . 

42:F0R 1-1 TO 4: READ B 

»CI>: NEXT I 
43:PRINT •... DES C0U10 

IRS ET ...': PRINT ■ 

... DES SfiLLES SOMBR 

ES." 
44:F09 1-1 "0 Si READ T 

«(I): NEXT I 
451PRINT 'TU ES EN ARUU 

RE.' 



46: FOR 1 = 1 TO 3: READ D 

f(I): NEXT I 
471PRINT ML FAUT TUER 
...*: PRINT •... LES 
NONSTRES ...•: 
PRINT •... ET • ;U*C1 
) 
48:PRINT "ET DELIVRER . 
..•: PRINT "... "ID* 
<2> 
49:REf1 
58:Q*(8)»"B0NNE CHANCE 

I ...•: GOSUB 288 
97! 'D - 

98:V=28:X«2:D«l:S«8 
991REH 
188fUAIT 5U 

1811 IF S>9 PRINT 'TRESOR 
IVAL. 'i STR* S!' E 
CUS" 
182:PRINT - TU AS - i STR» 

VI' POINTS DE VIE' 
189:REH 

•QUELLE DIRECT 
:!=ie: UAIT 2U 



U8:PRInT 

IOn V 

mil-l'i 

1121PRINT 



F« 



::3: 

;;■•.: 



116 

117t 
118! 



128 
12H 

;?9: 

1381 

131 

132! 

133: 

134: 



135: 

1361 



Y*« INKEYS 

K=(YJ = ")*2*(Y«M'F') 

♦Je(Y»""-")*4»<Yf"*D 

') 

IF K>1 BEEP 1! GOTO 

128 

IF I<"7 THEN 111 

REfl 

nait 4u: print 'un n 

ONSTRE APPROCHE'l 

GOSUB 588! GOTO 188 

R= RND Ki ON R GOSUB 

588,488)588,588 

GOTO 188 

REM 

UAIT 2a: 1=8 

PRINT 'ACCEPTES-TU L 

E COHBAT T'il'I+l 

It- INKEY» : IF YJ«' 

0' BEEP I: GOTO 228 

IF ffT BEEP 1! 

UAIT 4U! GOTO 137 

IF Y»<>" GOSUB 212! 

PRINT "CONTRE UN -in 

»(e>i - (•! STR» F!') 

•:I=8 

IF 1-7 THEN 131 

UAIT 4U! PRINT ML F 



AUT COHBhTTK.'iO 

INT <.7»C)I GOTO 228 
137: IF G«D-1 PRINT 'TU N 

E PEUX T.ELOIGNER.M 

GOTO 136 
138:PRINT MU T.ELOIGNES 

•:V-V-l: RETURN 
139:RE» 
198IREH 
288:UAIT 28: FOR I"l TO 

lEN Q»(8): PRINT 

LEFT« (M(8).I)l 

NEXT I 
28HBEEP l: UAIT 128: 

PRINT 0f(8) 
2821RETURH 
289IREH 
21818- RND 4tB«(8)-B«<B) 

:C«33»X* RND 11: 

UAIT 4U 
2I1!0«-'UNE •: IF B"l 

LET 0«-'UN • 
212: IF D-3 PRINT MU AS 

LiEPEE DE FEU"! 

RETURN 
2I3:PR1NT MU AS M0»(8« 

(8)! RETURN 
2191RETURN suite im»» l» 



HANAPS 



Au Moyen Age les distractions sont rares. on 8'ennuie 
ferme dans les chateaux forts, aussiquandcemagicien 
vous a propose ce marche. vous n'avez pas hesite une 
seconde : "Voici une rangee de 9 cases, sur les 4 pre- 
mieres je pose 4 hanaps remplis de liqueur de jou- 
vence, mais sur les 4 dernieres. tu poses quatre de tes 
plus gros diamants. II faut en 24 coups (aire passer les 
diamants a la place des hanaps sinon pas de jeunesse 
retrouv^e !... Ne t'en fais pas les cases sont magiques et 
t'avertiront d'un bruit de clochette si tu fais une 
erreur! ... 

Jean-Paul LAURENT 




tea Ren fta M*w*ti »m 

U0 bet. 

128 «£« m<t.*i l«*U»at 

IM «£(1 

148 POKE0I8.P£E«<016>*? 

IM MCtft * 

iio iwe 

170 CIS 

lee am M(iBi,M?n,3iii:,u.'. 



248 or" IB. 3.28.6. 1.28.0. 3.28.5, 1,29,3. 

3.120 

IM FOR J-l ro 21 

208 READ Am.BU I.Cttl 

:■.■-■ ■■■■• : 

268 C03UB 1318 

298 RE" 

388 FOR 1-1 TO * 



318 



i ,-■■ 



328 A4(I«3)*-*- 
338 NEXT 1 
348 MC5J-- " 
338 DOKE ■228,8 
388 RE" 

378 re-i 

398 CEn JEU 

398 R£n 
«88 mn 

418 GOSU8 1888 
428 Q0SU8 1218 
438 R£n 

449 GET A*;R£n 1« 
458 REn 



«86 B'UHLlM] 

478 |r B-8 THEN 448 

488 PLOT lB,l7,C"R»(BJ-n« 

498 PLOT 10,18, CHRt.(l2)>~<* 

435 «£fi 

508 GET Bt'Otn 2*** None.* 

385 REn 

318 C'UALfB*] 

328 IF C*8 Tn£N 388 

530 PLOT 10, I8.CHB4CBJ.B1 

548 If f>3B THEN 500 

541 RE" 

343 If OB 1HEH GOSUB 1638:GOT0 44 

345 «Ert 

558 sin 

508 REn P.. pim j. ,),„, ««•■( • | 

378 R£n 

398 IF C>6'2 OR B>02 THEM GOSUB 1 
TO 448 



018 R£n 

028 IF 8-C-2 ANO A«CB)'A*tB-n THEN gosu 

B 1039:0010 448 

038 IF B-2-C ANO A«(B)*A«C6*1) THEN COSU 

B I038;GQTO 448 

040 R£n 

058 REn P«i dnn. uni can <ttj» tciuixi 

008 REM 

878 IF nt(C)<>" * THEN G0SU8 1038=0010 4 

40 

068 REM 

090 REn Echant* 

780 REH 

718 X4-A4CC) 

728 A«(C)-A4C8) 



o^ c 



788 BE" 

770 "in £,i i, Ltraini I 
780 RE" 

790 FOR [•] TO 3 
acta Mi-**<H«(il 
■ 

628 IF x*.---.. mi' rn£« G0SU8 I2I8>&0 
TO 888 ELSE GOSUB I2I9IGOIO 

440 

638 REn 

B48 REn F.n du j«u 

658 REn 

eoe plot 3. i9,c»r«( ux-bbauqim' 

670 FOR IM 10 21 
880 Pi.*! ].8, 0.0 
B98 MUSIC l.BM ],A(I).13 

3B0 roe R-a to 31c: : 

•>I8 PLAT 8.8, O.b 

928 "t" 1 

-iie [F F>2« l>CH PLQI 1.38, "■"■-■■•- -■ ■■-. 

'RI(F).' C*jh!, . 

940 IF F(30 AND F>24 Tm£n PLOT 3.7;. n*l 

24" 
350 GOTO 980 
908 PLO' 3.22.Cr<P»r l2)>*n(ELW VAUT REHOH 

CERIII" 

070 tdP^OP R«0 TO 50;«E*T R:^AP 
9eB A-IMT{IifFFF-0EE<l«278))'l8e) 
990 e»lNT(A/08) 

ieae b»-str4(bi 

1010 ci«sTRt(A-eaiB) 

1020 plot 3.23,-TEnps ms • ■•en- ninvta 



738 f 
748 F-F 



1838 P0KEeiB.OEEK(eiB)'7 

1840 END 

1030 REn 

1000 HEn IwriiilM Uj Jt u 

1878 REn 

1080 PLOT 10,7.CHRI(n-CKR»(16)'E C h (l 

H G E"*CHJW*] 
1898 PLOT t8.6.CMR*[U-CHR*(|6)*-E CM* 

N G E"«CmB»(4) 
1108 PLOT 18,18,"( I'- 
ll 18 PLOT ie,ii,-:i 2 3 4 5 7 a 91* 
1129 PLOT 10,12. 's_)_]_l^l J 
1138 PLOT 10,13,-: I" 

1148 PLOT ia,14,'9L[lCMlttElfli:i[l-- 
1150 PLOT 3,l7,-0«P4'l flt 
1108 PLOT |«,17.CM»*(12).-<- 
1 178 plot 3,16. Pou' tlliri 
1180 RETURN 

1190 REH Ixpr.ttion <T u n couc 
1288 REn 

1218 FOR l-l TO 9 
1220 PLOT 11-tl-l H2. I3.A«(|)*- )" 



1738 «E*t I 

1240 "LOT 10. I7.C«*I 

1238 o£« 

1288 PLOT l6,18,C-*« 

1278 REn 

1288 B£TU»H 

1298 R£n &•*>•* c.'ic*..'.< 

1388 »£n 

1310 0-93. WSU8 1748 
1320 3«94;C.osu8 1748 
1330 0-93>G8SuB 1749 
13*3 S.97.GC4iJB 1748 
1358 Q<31-G0SU8 1748 
"-,JB 1748 
1378 OMiGOSJB 1748 
1388 S'iJJ.Kjjl ;74Q 
1398 3*125 OOSUB 1749 
1488 9%6«;CiQ5tJB 1748 
1419 I'Oa.&OSwB 1748 
USUM 1740 

i4w o-«3iGosua ;?*B 

GOSUB 1748 

■ ■ 

1460 CA?A 03.0,9.8.8.8.8.9 
1478 DATA e.ft. 8-8.8.8. 10.32 

1468 data 63,e,e.a.e.e.9.9 

1438 DATA 15.8.9.8.9.8.6,8 
1598 DATA 6.8.8.8.6,8.8.03 
1510 DATA 50. 6. 8. B. 8. 6. 8.8 
'528 DATA 8.8.8.8.8.8.8.03 
'S3S DATA 3.4,9,B.8.e,B.B 
<548 DATA 32,10.6.6.8.8.8.8 
1539 DATA B, 8,8.8.6.6.4. 3 
!568 DATA 4.6.16.03.10.8.4.9 

d» 03.03.03.38.12.12.38.03 
1563 DATA 30.43.51.43,43.31.43,38 
1398 DATA 6.6.8.6.8.6.8.8 
'808 REn 



) RE" 1 



1018 « 
1028 19 
1038 PLOT 3.22. TtousrtiMM 



FOR I -a TO 888 
«EXT I 
PLO' 3.72. 
G0SU8 1218 
RETURN 



I 788 
1718 
1728 REn 0*'**b< 



1 REn 



! FOR 1-8 TO 7 

) READ P 

1 POKE ]>40888>8*O.P 

) NEXT 

) RETURN 




POIDS IDEAL 



R6pondez sans tricher aux questions de votre PC 1 211 
et, selon le cas. precipitez-vous chez votre patissier ou 
chez votre medecin. 

YvanCHARPENTIER 



10:"ft"BEEP 2= 
PAUSE "<><> 
PO IDS IDEftL 

20: BEEP l: INPUT 
"QUO. AGE AV 
EZ VOUS ?"!A 

30: BEEP I: PAUSE 
"DE QUEL SEX 
E ETES VOUS 

40: INPUT "MASCU 

LIN/FEMININ 

aVF)?"iS* 
3d: PAUSE "QUELL 

E EST VOTRE 

TAILLE" 
M:BEEP l: INPUT 

"EN CEIITIMET 

PES ?"iT 
70: IF S*="M" 

GOTO 100 
80: LET P=<T-100 

+A/10>*.8 
90: GOTO 200 
lOOiLET P'<T-100 

♦A/10>*.9 




200: PAUSE "VOTRE 
POIDS NORMA 

L EST" 
210:PAUSE "DE "1 

USING "MM" 

iP;- KILOS" 
2 15= GOSUB 500 
220: BEEP 1: PRINT 

"ALORS.VOUS 

ETES " 
230: IF 8*="F" 

GOTO 260 
240: BEEP 1: PRINT 

"TROP GROS ? 

?7 •' 
250: GOTO 270 
260: BEEP 1: PRINT 

"TROP GROSSE 
???" 
270: INPUT "UN AU 

TRE CALCUL < 

a/N> ?">x* 

230: IF X»="0" 

THEN 10 
290: BEEP 3: PAUSE 

"AU REVOIR.. 

300: END' 

SO0:FOR I=1T0 5: 
BEEP l: PR I NT 
P>" KILOS ! ! 
!":NEXT I 

510: PRINT " 



520: RETURN 



^ 



suite de la page S 



o?« c 



2335 ( 
2393 * 
7408 ( 
2418 t 
2411 f 



I CMIFFRE 5 I 



MM PWK1 

2088 PRINT 

2089 PRINT 
2010 PRINT 
2811 PRINT 



2012 PRII 
2068 RETURN 
2093 REn Mi 

7780 PRINT 1 

7781 PRINT 






II* •■«! i 




En raison da la longueur du lis- 
ting, nous passcrons ce pro- 

.y i, ,■,'!■■ ■ 'i J .,'.T, fur. .'or- 



ASUIVRE.. 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNERAUTARIFPREFERENTIELDE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 X 8,00 416 FRANCS 

NOM: MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: CHEQUE CCP 



NAVETTE 



Faites atterrir votre navette sur le sol cahoteux de cette 
plan*Me sans vous dcraser ni utiiiser trap de carburant ! 

Maurice NOVAT. 

RAGLES i 'i 

II s'agit de poser la navette sur le sol L'alterrisaaoe a lieu a une alti- 
tude iuperieure cnim unlM I call*, riu id 

Latter nssage ost correct si la vitosse de descente oat de - 1 Dans 
tree cas. la navette est conslderee comme percutanl le sol. si 
elle descend II ne se passe rlen si elte monte. 
Un attemssago procure 

- du carburant si I'altitude du sol est egate au premier chitfre indl- 
quant les reserves de carburant . 

- des coups a jouer dans le cas contraire Le nombre de coups ost 
egal a I'altitude du sol 



130 Nrx T i 

140 PBlNf RT . ». ' 

150 LET X>0 

160 LET V.Jl 

1 r0 POINT FV1 

IO0 l-OB I- I 

31« PRINt"rT H B. (1 



S'fl FOR t«l TO »3 

•n« uer a-x-i 

?90 PDINT RT H,Y, l 

Jee pr int rt n. i ,v 

■'■■■ 
33« let x.a» 

330 LET v.* 

140 PRINT RT x.v.-i 

MB FOR I»l TO la 

hra uer b-v.i 

jb» PRINT or R.a. I 

^S90 PRINT RT RH.B 



j.50 let • 

.460 print ot r,v, -tt" 

*7B PRINT RT R-l.Y;" 

4 OB NEXT I 

na PRINT RT ai,3l,"E" 

ibb pouae sa 

5l« PRINT RT J1.31 

— ■ 0,2s, -e- 



5?? PRU5C 55 

RINT RT O', a»! 



550 

580 PRU3E B0 

570 PRINT RT 8.15 



pause as 



"5,4.8 G05UB 3220 

550 LET E-0 

555 LET CX>B 

65V LET CZ*0 

460 LET Ofi-e 

670 LET BR-4 

6B0 LET SB>4 

590 LET eC -4. 

■00 LET BO-4 

718 LET Be =4 

730 LET BE =4 

730 LET BG=I 

rQ«) BOS1M 33M 

770 G05I " 

7*0 G05I 

790 LET 

B00 IF R--1 TMCN GOT 

810 PRINT RT 6,33." 

920 PRINT RT 6,23. R 



IE 0»» 
BT0 LETT I 

1 RETIJ. 

1 REM 




880 RETURN 



LB PLRNETE 
i38 POU!" " 
330 CU3 
34.0 GOTO 



10.3, "COLLI*!© 



130 R»U?.P HT.B 




TMEN LET 
330 
i GOSUB 3:»60 

- then Rerun 






1170 ir un 



Les "ordres moteurs" (touchoa a 3) permeltent : 

- 0: de dlmlnuor la vitosse ascenclonnelle dune unite 

- I dene pas effector celte vltease 

•I 3: (t'augmwitor la vitesse ascenclonnelle respect! vernent 
dune ot doux unites. 
i n ordru de direction" (touches O(rolto). Q(auche) ou Z(ero ) 
motfiflent la vitosse de deplncnment lateral: D d'une unite vBrs la 
drolto, G d'une unite vers la gauche Z n'affocte pas cette donnee 
Un atterrissage romet les vltesaes a zero. 

Les ordres moteurs affectent les reserves de carburant on fonction 
de leur valeur 0-0 unite. 1 - I unite, etc. 

Les ordres de direction G et D affectent les memes reserves d'une 
unite c ha que fois qu'elles sont utilisees. 

Pour renouveler I'interet du jou II est possible de tenter de realiser le 
poser successif. dans un ordre determine a I'avance, sur toutes les 
colonnes representant le sol : I'interet du jeu est ainsi accru et les 
erreurs de manipulations deviennent plus frequentes. 



Le jeu s'arrete si ; 

- II n'y ,i plus de carburant ; 

- on ne dispose plus de coups a jouer ; 

- on rentre en contact avec le sol; 

- on deborde a droite ou a gauche de la representation du sol. 

c.Vi t >"■'■ THEN GOTO 1 



z* 8A 




Vji 








PRINT RT X' 


tV'li, - 




\3ia 








1520 


RI I IT,., 






1.1-.-18 


ron i.-i tc 


OR STEP 




1340 


LETT EsE-1 








ie eio TMCN 


GOTO 0-350 


. aee. 


LET V.E 






\ .:■ ? o 


LET X-20-O 






ii.-nn 


IP ECO OR E>14 TMEN COTO O 


i.'--jh 
?»1» 
1. 180 


IE 0»IX,Y1 < 


>'■■ TMEN GOTO 1 


□OTO 0BO0 












IS* 


PRINT RT X, 


(V4U; " 




I 130 


NEXT I 






1348 


nf.TIJFIH 






I .-.-IT 

1368 


Xr c'-Sl TMEN l>F. ■ 


1 11 •« 


IF BR-BH TM 


EH EtOTO 






IE BO IBM TMEN GOTO 




I I'll) 


IE BE .BC TMEN GOTO 






IE BE)BF TMEN COTO 




U1B 


IE Bt>>BE THEN GOTO 




14 20 


IE BClBD TMEN GOTO 




1130 


IE OB >BC TMEN GOTO 




1440 


IE RfilOB THEN GOTO 


1670 


1450 


LET BH.BM-1 






1460 


IE C-l TMEN 


RETURN 




; 4 rn 


LET BG-BG-1 






\ lSS 


IE c-a THEN 

ifr ur nr-i 


RETURN 




1580 








15 18 


LET BC-BG-1 






1538 


IE C=l TMEN 






1-3 30 


LET BF=BF-1 








IE Cn2 THEN 


RETURN 






LET SE-BE-1 








RETURN 






1570 


LET Sf=BP-l 






Y-i™ 


IE CI TMEN 
LET BE.BE-l 


RETURN 






IE C»3 TMEN 


RETURN 














RETURN 






1^38 


LET BE=BE-l 




m 4^«jk 


1B40 


IE C-l THEN 


RETURN 


^m^ 


16S0. 


LIST Bo*ee 




■ 4V»*. 


L64M 


IE C-3 THEN 


RETURN 


Ill 


1678 


LETT BC=BE 




11 J 




RETURN 




■ ^kW 




LET BD.Bti-1 








IE C=l TMEN 


RETURN 






LET SC?BO 






1730 


IE C-3 THEN 






1.730 


LET BB=BD 






1 .'4 8 


RETURN 






1 750 


LET BC-BC-1 






1760 


IF C=l TMEN 


RETURN 




1770 


LET BB-BC 






17B0 


IF C-2 THEN 


RETURN 












i-..«o 


RETURN 








LET aD-BEI-1 










RETURN 






LET BO.-CB 






1940 


IE C»3 THEN 






: --.-.a 


LET BH-BM-I 






1360 


RETTURN 






IS70 


LET BO=BR-l 






lasa 


IE C-l TMEN 


RETURN 




1930 


LET BM=BM-1 








ir C--T' THEN 






-.3 18 


LET OC.BH 






L93C1 








LETT bIRbR*" 








LET BB.-OB.i 






■ Jf-,M 


LET B'JxOCtZ 







SeSBIP BR 1-8 T1 






■PLUS OE CORE) 



I GOTO 3300 



JU E) I '■ Ii 






-S88 pnxtrr 



prum aoa 



aaeo let 0«-e 

a:?^^ goto ] 

ne ' i a 

,:.■» frit in (~i if,].'. "ACCZOENT" 

330 print m u,,<. rurp.nnissn&c 




input o* 
PRINT RT 2 
1 3940 



aase gosuo an*a 



ou Z irno; 



3BB8 
2B98 

§!"■ 

3300 
2910 
3338 
3938 
3948 



TMEN GOTO SO 



LET CoUHL C* 

GOSUB 39*0 

RETURN 

S57^f n ) H.iX-J 



3958 PRINT RT 




:=11 THEN RET 
539a PRXNT RT 11, 16. " 
22*S_^B! M T./ ,T ' ' - 16,BR,DO,BC^OO, 
i THEN GOTO 3450 



,ilB PRINT RT 10, S, "PLUS DE CRRB 

-1430 PRUSE 350 

7 4 3B CLS 

J4.40 COTO 3460 

3 450 RETURN 

1460 PRINT RT 3 . 1 . "UOl JLEZ -UOUS' 



TRPE7 1 
Tr-08 PRINT 



UNE OUTRE PftOTIE" 
REUOIR »"■■ RBORO LE5 



3510 PRINT 

MEGLE5--- 

3528 PRINT TfiB 25, "TRPEZ 2" 

3530 PRINT 

3540 PRINT "NE PLUS .IOUERT 

TRPEZ 3- 
"5S0 INPUT K« 

3560 IF K»<>"1" RND «»»»"»" 
",»<J -3- TMEN GOTO 3460 
3570 IE K»-"l" THEN GOTO 3»_ _ 
35S0 IF K»= "3" THEN GOTO 3700 
3590 IE K* " 
3688 PRIN 
MME7" 



■ Xf< t-W TMEN 
I COTO 3680 
TMEN GOTO 0630 



3740 PRINT "UOTRE NRUETTE E3T RE 



3758 PniNT 



. '-.!! PR tNl 



ifl80 PRINT "LEJ COMMONOE5 0, 1, 
3, ET 3 DONNENT 1.(1 PUI55RNCC 

UE5 HOTEUR3D OIMINUE LR UITE55(- 



I PRINT 
3O30 PRII 



(ON '" I I i 



N3EPUE in 
i.i lOM) NTI 



•JNC TOUCNE- 
7,ii50 PRU5E 4C4 
3B60 CL5 

MHRNDI .'. r.' li.ii i ■ 

ei et r.inuoifi nri6URCNT l» 

9 Or.PLRCC - MENTS LI 

E UNXTe CHfttHJE rot'. OU 

C6 SONT 

3BB0 PRINT 

1O30 PRINT 



ill RUYI . iUR 



REM] i 9 i 

UNE TOUCME' 
T938 PRUSE 4 

">'J5Q PRINT - 

.- i n ennsu 



t. ii ii 



DC 

■I'.ti PRINT 



ii-. ■■<■. riM! 



OE GfKJCME" 



i«5e i'h ii 



CENTE E5T 



LOBfJ P»I| 



in/8 pnuaa 

■HM« ci r, 

•Ml &OT0 

4 100 CL5 



■BI UOUS .lURlEZ DCS I. 

, ,,.i, i,. OU vr.i ■ i . ■ ■ ■ 

renDEZ onto i i i . 

"81. LOR1 (>"IIN RTTEr- 

-. iSI 



i ; ,ii en un 
1140 POUflE 



ton 

Jf 4 

3030 

■uoua nuET epui»e tou 
tob 10. "coops r uouer 
MpOSXCZ" 



<.5'V?° £ »" 



1B0 GOTO 3460 

178 SRUE "NRUETTH" 



'i page 13 24$ 



ft**. 

• 2 



259! 
228! a«I- 3U 
221: IF OF GOTO 248 
222: IF C<F GOTO 238 
229: REB 
238: PRINT 'COflBAT EGOL ' 251: 

"I PRINT 'LE 'luxe) 

i" S.ENFUIT.VVV-I: 252: 

RETURN 
239: REN 

248:BEEP 2: PRINT -TU ES 233 
VSINOUEUR I'l PRINT 

•L£ *JMf(8>l' EST 0N234: 

EUNTI." 
241:V=V»C-F: IF LEFT! (n 

*<e> , 1 >»'D* RETURN 
242:R" RNB 5:T»t8)"T«(R) 255:RETURN 

IS-S-18R 259:REB 



PRINT - LE •l«»<0)i' 
GPRD9IT ...': PRINT 
•UN'IT«<8)i- : •! 
STR» (18R)I- ECUS": 
RETURN 
RE» 

PRINT -LE 'INXeil' 
...': PRINT •... EST 
LE PLUS FORT.-: 
PRINT -TU ES VOINCU. 

V-V-2«<F-C): IF V<»8 

THEN 268 

IF X»2 «ND V<7 PRINT 

•TON flRMURE EST DETR 

UITE-:X«8 

PRINT -TU TE SSUVES 

EN FUYANT' 

IF S>8 PRINT -TU OBS 

NDONNES ...': PRINT 

"... TES TRESORS.'lS 



268:F0R >1 TO 5: COLL >. 

7873: BEEP 1: NEXT I 
261:0*<8> = -flDIEU i TU ES 
MORT. ": GOSUB 288: 

END 
269: REI1 
4e9: - I)R«G0N,PRINCESSE.S0 

RTIE- 
491:G« RNB D: IF G<>1 

GOTO 588 
482:U»IT 4U:DS<8>-B<(B> 
483: PRINT -TU OS DECOUVE 

RT ...•: PRINT -... 

•|D«<8) 
484:0N D GOTO 418.428.46 

8 
4B9:REfl 
4I8:G0SUB 218:F=8» RNB 1 

7 
41i:l1»<9>=-DRAG0N':0t<8> 

•D*<I)»- EST FUREUX' 

I GOSUB 288: GOSUB I 

38 
4:2: IF COF RETURN 



4I3:D-2:V»V-» RNB 10: 

a«IT 4U: PRINT -TU « 
ONTES BUNS LE DONJON 

414:PRINT -POUR DELIVRER 
...•: PRINT -... -i 

D$<2): RETURN ♦ 
419:REH 
428:PRINT -TU LO DELIVRE 

S' 
42l:R" RND 4: ON R GOTO 

459.438,458.440 
429: REn 
438IPRINT -C.EST LE BROG 

ON QUI ...•: PRINT • 

... L.OPPP.RENCE ...' 
43l:PRINT '... DE -iD«<2 

):D-1 
432iPRINT -IL FOUT LE DE 

TRUIRE': GOTO 410 
439: REM 
448:R" RND 6: PRINT 'ELL 

E SE TR0NSF0RHE ...• 

: PRINT -... EN 'IN* 



(R) 

44l:G0T0 592 
449:REI1 

450IPRINT 'ELLE TE DONNE 

...•: PRINT "L.EPEE 

DE FEU':D*3!X»20 

45UPRINT -VOUS CHERCHE2 

Lf> SORTIE.': RETURN 

459iREH 

460: PRINT -VOUS SORTEZ. 
ENFIN SAUFS I'l 
PRINT -TON TRESOR : 
•i STR« SI' ECUS ... 



.. ET -*M(2 
GOSUB 200 



461:O»(0> 

)♦• ! 
462: ENB 
499:REB 

599:"C0I1BAT/"0NSTRES- 
S81IR- RNB 6:G'8 
582:n$<8)«nf<R):F-R» RNB 

18 
583:IIh!T 2U: PRINT 'TU E 

S FACE « FACE ...' 



504:hAIT 5U: PRINT '... 

AVEC UN 'iN«<8> 
585:G0SUB 210: GOTO 130 
589: REM 
598: DATA 'GOULE'i'GNOBE' 

> 'COBRA - . *VA»PIRE-.' 

BALROG', -TROLL' 
59l:BATA 'ARC. 'EPEE'. 'H 

ACHE-, 'LANCE' 
392:DATA " LINGOT'.' DIA 

BANT',' COFFRE',- SC 

EPTRE - ,- E COURONNE' 

593:DATA 'LE DRAGON'. 'LA 

PRINCESSE'.'LA SORT 

IE- 
599:-FIN- 
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Les 3 premiers niveaux onl un 
temps de reponse assez rapide 
et, avec un bon entrainemeni, il 
est possible de (aire jeu egal 
avec I'ordinateur Le temps de 
reflexion du niveau le plus eleve 
est beaucoup plus long mala la 
vision du jeu est bien supeneure 
a lei point que, malgre de multi- 
ples tentatives. II ne nous a pas 
ete possible de gagner une par- 
tie 

Ce jeu classique vous permet 
done d'aftronter un adversaire 
tres competitif. mais le prix eleve 
du logiclei et la relative facihte de 
creation d'unjeuidenliquejusti- 
dent-Ms lachal. de ce module? 

Ce jeu de strategic se presente 
sous la forme dune cartouche a 
mserer dans le compartiment 
reserve a cet ettet sur la conso- 
le. II s'agit. encore une fois. d'ali- 
gner quatre pions sur une droite 
horizontale, verticale ou diago- 
nale . mais. cette (ois-ci, la grille 
a trois dimensions. On peut 
jouer contre lordinateur ou a 
deux joueurs, le T07 se char- 
geant alors du role d'arbitre. 

SEYMOUR 




Possesseur Ti-99/4A basic sim- 
ple, cherche genereux donna- 
teur de programmes, cassettes, 
modules ou peripheriques. Jac- 
ques BASSE 1, rue du GRAND- 
CLOS. 54920 VILLERS-LA- 
MONTAGNE. 



Vends adaptateur couleur PS 
2000 pour VIC 20: 500 F. 
D. BRIOT 7. rue Curie - 92360 
MEUDON-LA-FORET. Tel 
632.39.83 (apres! 7 h). 

Vends CASIO FX702P. son inter- 
face magneto, livre ^'initiation 
(ed. PSI): 1000 F. Patrice CO- 
ROUGE. Tel. 345.59.87 (apres 
19h). 

Vends SANYO PHC 25 (5/83) + 
cordon magneto + K7 (break- 
out): 1600 F. F. MICHAUX 5, 
square du Bounty - 95470 FOS- 
SES. Tel. 472,64 63. 



Vends modeles pour Ti-99/4A 
basic etendu, jeux divers, ma- 
nettes prise magneto, manuels 
M. PETIT 90, rue MARTIAL RE- 
GNIER-OISY.59195MERIN.Tel. 
(27) 30 42.75 apres 19h. 



Vends PC 1 251 + CE 1 25 + ma 
gneto sharp + 45bobinettes 
primantes achetes NOV. 83. Va 
leur 3600 F, cedes 3000 F. Yan 
nickMIGNOT32.rueMontalerrv 
bert - 16000 ANGOULEME. (45) 
92.96.07. 

Vends CBM 4040 + 3022 + 3000 
logiciels dont PETSPEED. DTL 
COMPIL. VISICALC. tous les 
programmes de PROCEP avec 
doc. WORDPRO 3. LANGAGES 
LISP. COMAL. PASCAL. LOGO. 
FORTH, etc.: 11000 F. Gabriel 
WEISS LINGER 73, ruedu Maire - 
57400 SARREBOURG. Tel. (8) 
703.37.57 (entre 12 et 13h). 
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Vends T.-99/4A (oct 83) + ma- 
nettes + MOD. X Basic + MOO. 
Echecs + cable K7 + lemons X 
Basic + aide a la progr 4- progr. 
jeuxetutihlaires Le tout WOOF 
Mme BOURG-VEKRIS 25. rue 
Paul BARRUEL 75015 PARIS 
Tel 2501210 

Vends ordinateur de poche 
Hewlett-Packard HP41C + lec- 
teur de cartes + imprimante 
82143 A + 20 cartes, partait etat 
2200F Tel 16(74)96.58 29 

Cherche tout programme pour 
T1-99/4A. Jean-Luc PROST 
10. place de L'HOTEL-DE-VILLE 
71600 PARRAY-LE-MONIAL 

Vends PC 1 250 + imprimante et 
micro K7 incorporees, achetees 
en mai 83 2500 F. M. OELEYE. 
Tel. 597 30 38. 

Vends TRS80 MOD 3-48 KO 
Docs + Livres + programmes 
K7. 5600 F, CISEJ BRUNO Le 
Lac PENCHOT 12300 DECAZE- 
VILLE. Tel. : (65) 34.04.30 heures 
de bureau. 



Vends SANYO PHC 25 (5/83) + 
cordon magneto + K7 (brea- 
kout) Prix: 1 600 F. F. MICHAUX. 
5. square duBounty.954 70 FOS- 
SES. Tel. 472.64.63. 

ORIC: Vends XENON. ULTRA 
MUSHROOM. LIGHT CYCLE. 
GENIUS, CHENILLE. INTER- 
TRON. ZODIAC. JACKMAN. 
DIWKY KONG. Cherche pro- 
grammes. Alain BARTOLO. 
3. rue St-Exupery. 95250 BEAU- 
CHARY. Tel. 995.25.63. 

Possesseur PC 1500 echange 
programmes, trues, astuces Re- 
cherche personne consentant, 
contre remboursement. a me 
photocopier le Manuel L.M. 
de SHARP. J.-D. LAUWEREIMS. 
10, rue Vandrezanne. 75013 
PARIS. Tel. 588.48.45 

Vends T1-99/4A avec module 
BASIC ETENDU et module 
ECHECS. 250 programmes, li- 
vres, cable K7. Garantte jusqu'en 
oct. 84. Tel. 250.1210. BOURG 
Chantal. 

Echange programmes pour 
SPECTRUM. Liste contre 2 tim- 
bres. Michel LIOTARIS. 6. rue 
dOradour. LUXEMBOURG. 

Vends tekWiseur couleur porta- 
tif "AUDIOLOGIC" equipe prise 
peritel. Ecran 5 (12 cm). Stan- 
dards PAL-SECAM. Alimentation 
220 V ou batterie 1 2 V ou 8 piles 
1.5 V. Etat neuf (achat mers 83). 
Prix ; 21 OOF (possibilito 3 x 700 F) 
PINpON, C 721. Plateau de Gul- 
nette. 91150 ETAMPES. 

Vends SHARP PC 1 500 (avr. 82) 
+ module 8 Ko + interf. Impri- 
mante 4 couleurs + magneto + 
progrs K7 + manuel + 3 livres: 
2000 F. Ecrire. Louis de MES- 
NARD, 10. rue Pierre-Curie, 
93200 ST-DENIS. 

Vends APPLE II avec ROM mi- 
nuscules, CARTE langago 16 K, 
disk II avec controleur, moniteur 
Philips -f Pascal et nombreux 
programmes : 1 1 500 F (oct. 82). 
M. G1LLES. Tel. 321 .51 .76 (a par- 
tir de19h) 



Vends, pour ZX 81, cassettes 
plus manuel, cours programma- 
tion BASIC: 150 F, porl inclus. 
Vends cassette avec logiciel 
complet des sorties du LOTO 
depuislebebut:50F. Jean-Louis 
JOYAUD - BP 1 72 - 85203 FON- 
TENAY-LE-COMTE Cedex. 

Vends COMMODORE VIC 20 
(neuf, garantie du 22/12/82) + 
joystick + 3 cartouches de jeux 
(STAR BATTLE. ROAD RACE. 
RAT RACE) + extonsion 8 Ko 
RAM (10/83) + adaptateur N.B. 
+ 2 livres + 4 K7 de jeux ot ulili- 
taires + magn6tocassotte C2N : 
le tout 3000 F D. BRIOT 7. rue R- 
et-M.-Curie • 92360 MEUDON- 
I A-FORET. Tel 632 39 83 (apres 
17h). 



Vends PC 1 500 avec CE 1 50 ( trn- 
pf.mantij/K7) ■»• CE l5i ( 4Ko 
RAM) + iwres + documenta^ 

primante-*- programmes tetout 
370OF Pascal TRlCARD. 11, rue 
cTAmlens. 93600 AULNAY 
SOUS-B01S Tel 868 09 87 

ORIC 1 plus de 1 50 program- 
mes vous attendent pour ©chan- 
ges Vends interface sortte an- 
tenne couleur 300F Reponse 
assuree Alain LADMIRAL. 40. 
rue J-Jaures, 91130 RlS-ORAN- 
GIS 

Vends ou echange module Tt- 
99/4A PARSECMUNCH-MAN. 
INVADERS. HUSTLE 15O0FB 
piece Ecnre DUCARME Ph 1 2 
rue Abbesse. 5864 nil s 
CENT. BELGIQUE ou tel. (010) 
65 76 28 (le SOll}, 

Cherche (achat ou echange). 
pour ZX 81, carte N' 6 de 
"BLACK CRISTAL" Vends K7 jeu 
"COSMOS* pour SPECTRUM 
GALLIER R . 1 570. av. de Toulou- 
se. 31600 SEYSSES Tel (61) 
924340 

Vends ZX 81 + clavier mecani- 
que + RAM 16 K + 1 K7 Simula- 
teur de vol + 3 livres. le tout tres 
peu utilise: 1000F Tel (i) 
586.17,81 (apres 20 h). 

ZX 61 cherche K7 langage 
FORTH (ou livre eve-: 
ment) Echange contre jeux. as- 
sembler, desassembleur, qes- 
tion PACAUT J.-P. 47. rue Jean- 
Rostand. 84000 AVIGNON Tel 
(90) 88.16 96. 

Vends SHARP PC 1500etat neut 
avec manuels (sept 82) :1500F. 
M GASQUEREL Tel 9746590 
(heures de bureaux). 

Vends HP 41 C + QUAD. MODU- 
LE + lecteur cartes + cartes + 
imprimante 82143+ X FUNCT.+ 
TIME + NAV. + AVIATION + GA- 
MES + X MEMORY + documen- 
tation. Prix neut divise par 2 
(achat 02/81). M. JOUVIN. 9. sq. 
Haydn. 91450 SOISY-SUR-SEINE. 
Tel. 075.1 7,10. 



Possesseurs deZX-81 a la recher- 
che de programmes, contacts; 
vite le club des programmatcurs 
fous pour echanges. 8. av du 
Mar6chal-Juin. 77400 LAGNY 
Tel (6) 430.8606. 

Vends ordinateur de poche CA- 
SIO FX 702 P + Imprimante FP 
10 + interface cassette FA 2 + 3 
rouleaux de papier, excellent 
etat. Eric LIMELETTE. Route du 
Ponl-Rouge, 59530 LE OUES- 
NOY. Prix tres otudie: 1350F. 

Vends MP-F It neut (aoiit 83). 
SECAM3100F + moniteur mo- 
nochrome vert BMC jamais 
servi (oct. 83). le tout sous ga- 
rantie, ced6 avec plusiours jeux 
gratuits de ma modeste logithe- 
que. P. GUERIN, 30. bd Abord. 
91380 CHILLY- MA2AR IN Tel. 
909.70.58 (le soir) 



Vends COMMODORE VIC 20 
(nov. 82) + manolto'. r|c< imi I 
lecteur de K7 + 3 cartouches de 
jeux + cartouches VIC-RELAY + 
cordon peritel I- nutoformation 
BASIC + 6 livres sin leV)C,4tBl 
nouf Valeur nouve actuello do 
(ensemble : 4108 F Lo lout cede 
a 2500 F. M SAUI.OU. tftl 16(8) 
075 77 79(apr6s20h). 

Vends SHARP PC 1 251 et CE 125 
4- 10 mlcrocassettes ot pro- 
grammes, parfoit etat 2500F n 
deb MORIN Olivier. 6. nifl U 
Marhn. 92240 MALAKOFF. Tel. 
657 2267. 

Vends cassettes de jeux et utili- 
talre + 1 livro sur ORIC 1 DINKY 
KONG, ORIC BASE. JACKMAN, 
I1A1AII I F NAVAl F, 3D MAZE F 
BRITAKOUT. MANOIR Dr GE- 
NIUS, IHAIIFMENT 3D. SIMU- 
l AU Ult DE VOL. le guide de 
I'OniC (livro) V SAJOUS 292, 
ruo Gounod, 59460 .ll.UMONl 
Telle (27) 3941,69 



^Af Suite de la page 1 
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II w.\ y.ivnii fiiv, nouv.iuTi:'. il.io-, 

votro journal prefer* I Da I'as- 

■,i-'inl)lour. (Iii FORTH. duLSE et 

du LOGO. Tie-; btttnldl ' Alors, si 

.- ' li ".programmes dans 

...■ . Iafi(|.i().", (in-. ■ (ilf)iinc:; ,il 

lendenl uoi listings 



i i samatne prochaino, nous 

allnrr. avoir ill"; nniuvnini'iil-, 

parmi les ordinateurs presents 
dans Hebdoglciol. Des arrivoes : 
CANON X 07 - des rotours. 
Muiiitech Mi' i ii et, iaul re 
drassamenl da dtmiera minute, 

ii.-. r|rap;irls ".in la louche nu 

piquet, les PC (211 etPC i25t ot 

HP 75' 
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